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ABSTRACT 


The function of the OMC11 diagnostics is to verify that the 
option peereres secording 9 $ sabe reet ieee The diagnostics 
verfiy that there are no mal unttions and the al opérations 
of the DMC11 are correct in its environment. 


Parameters must be set *% to alert the diagnostics to the 
DMC11 configuration. hese arameters are contained in the 
TATUS T and are generated in two ways: 1) Manual 
nput - the operator anfuers questions. 2) Autosizing - the 
program determines the parameters automatically. 


CZDMGD tests the DMC11-AR and DMCLI-AL- micro-processors 
(MB200-YA MB8200-YB). It performs Axmr tests on_ the 

micro-processor and verifies the control ROM of the me00. 

This diagnostic will not run on a KMC (M8204), however it _is 

gossigie o load the KMC CRAM with the DMC micro-code. See 
est 2 for details. 


Currently there are five off line diagnostics that are to be 
run in sequence to insure that if an error should occur it 
will be detected at an early stage. 


NOTE: Additional diagnostics may be added in the future. 
The five diagnostics are: 

i. DMC [REV] Basic W/R and Micro-processor tests 

€- BS DNE [REV] ODCNP Line unit teste < Re 

3. OZOMF [REV] BITSTUFF Line unit tests 

4. CZDMGD [REV) Jump and CROM tests 

S. DZOMH [REV] Free-running tests (Heat test tape) 
REQUIREMENTS 

EQUIPMENT 


re | PDP11 family CPU (except an LSI-11) with minimum 8k memory 
ASR 33 (or equilivalent) 
DMC11-AR (M8200-YA) or an DMC11-AL (MB200-YB) 
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STORAGE 


pr sacee will use all 8K of memory gxcegt where ABL and 
BOOTSTRAP LOADER reside. Locations 1500 thru 1640; contain 
the “STATUS TABLE” information which is generated at start of 
diagnostics by manual input (questions) or automatically 
Cau ig kgf This area is an overlay area and should not be 
altered by the operator. 


LOADING PROCEEDURE 

METHOD 

All programs are in absolute format and are loaded using the 
apsol ure LOADER. NOTE: if the diagnostics are on a media such 
as DISK ,MAGTAPE,DECTAPE, or CASSETTE; follow instructions 
for the monitor which has been provided on that specific 
media. 

ABSOLUTE LOADER starting address *500 


MEMORY #* SIZE 


4k 17 
k 37 
lek $7 
16k 77 
20k 117 
24k 137 
28k 157 


Place address of ABS loader into switch register. 
(also place ’HALT’ SW up) 


Depress "LOAD ADDRESS’ key on console and release. 


Depress *START KEY’ on console and release (program should now 
be loading into CPU) 
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STARTING PROCEEDURE 


a. Set switch register to —— 

b. Ae, *LOAD ADDRESS’ key and rele 

e. to zero for ‘AUTO SIZING’ or *Sur bitO=1 for manual 

ut A ye or SWR bit7=1 to use existing parameters 
: este x. previous start or a previously run OMC11 
ia no 

d. df agnoat START KEY’ and release. The program will type 
Maindec Name and program name (if this cas the first start 
up of the program) and also the following: 


MAP OF DMC11 STATUS 


PC CSR STAT1 STAT2 STAT3 


001500 160010 145310 177777 900000 
001510 160020 145320 177777 000000 


The program will type ’R’ ae proceed to run the diagnostic. 
The above is only an exam This would indicate the status 
ppete BS ee at add. 1B" in re ereeren, In this example 
ble co ei tains th ormati and us_of two DMC11°S. 
THe STATUS TABLE MUST Be’ VERIFIED “BY THE “ier IF AUTO er 
+f DONE. For information of status table see section 8.4 for 
eip. 


If the diagnostic was started with SWOO=1 iadiceting manual 
parameter input tnen the following shows an example of the 
questions asked and some example answers: 


HOW MANY DMC11’S TO BE TESTED?1 


01 
CSR_ADDRESS? 160010 
VECTOR RESS?310 
BR PRIORITY EVEL? (4.5 2S 
DOES MICRO-PROCESS on “HAE” chan? CY OR N)N 
H LINE UNIT? SOF ONE TYPE “N", IF M8201 TYPE “1", IF 


4 ’ 

HE LOOP BACK C cror gue 
SWITCH PACS#1 (DDCMP LINE®) 7377 
SWITCH PAC#e (BM873 BOOT ADD) 2377 


Following the queetipas the status ep is printed out as 
describe abov ,» the information in the map reflects the 
answers to the iauestions. If the diagnostic was started with 
SWOO=0 and SWO7=0 (AUTO-SIZING) then no questions are asked 
and only the status-map is printed out. { AUTO-SIZING is 
used the status information must be verified to be correct 
(match the hardware). if it does not match the hardware the 
oi ogaees is must be restarted with SWOO=1 and the questions 
answered. 
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SW 15 Set: Halt on error 

SW 14 Set: Loop on current test 

SW 13 Set: Inhibit error print out 

SW le Set: Inhibit type out/abell on error. 

SW 14 Set: Inhibit iterations. (quick pass) 

SW 10 Set: Escape to next test on error 

SW O09 Set: Loop with current data 

SW O08 Set: Catch error and loop on it 

SW O7 Set: Use previous status table. 

SW O06 Set: Halt in ROMCLK routine before clocking 

micro-processor 

SW OS Set: Reserved 

SW OY Set: Reserved 

SW O03 Set: Reselect DMC11’s desired active 

SW O2 Set: Lock on selected test 

SW Ol Set: Restart preeeee at selected test 

SW OO Set: Build new status table from questions. (If SWO7=0 
and SWOO=O0 a new status table is built by 


auto-sizing) 


Switch O& and O8-15 are dynamic and can be changed as needed 

while the diagnostic is running. Switches O0-O03 and switch O07 

"e 4nd ttt and are used only On starting or restarting the 
lagnostic. 
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SWITCH REGISTER OPTIONS (at start up) 


SW O01 RESTART PROGRAM AT SELECTED TEST. It is streggls 
pregee*es that at least one pass has been made befor 
trying to select a test, the reason being is that the 
poe has to clear areas and set up parameters. 

hen this switch is used the diagnostic wili ask TEST 

NO.? Answer by typing the number of the test desired 

pad carr ige return to Begin execution at the selected 

est. 


SW O02 LOCK ON SELECTED TEST. This switch when used with 
SWOl will cause the program to constantly loop on the 
selected test. Hitting any key on the Zonso e will 
let it advance to the next test _and loop until a key 
is hit again. If SWO2=0 when SWOl is used. The 
preare* will begin at the selected test and continue 
normal operations. 


SW O03 RESELECT DMC11’S DESIRED ACTIVE. Please note that a 
message is typed out for setting the switch register 
equal to DMC11"s active. this means if the system has 
four DMClls; bits 00,01,02,03 will be set in loc 
"DMACTV’ from the switch’ register. Using this 
fil ten (SHOU) alters that location; therefore if four 

MClis are in the system ### NOt#e* set switchs 
greater than SW 03 fn the up position. this would be 
a fatal error. do not select more active DMClls_ than 
there is information on in the status table. 


A: Load address 200 

B: Start with SW O00=1 

C: Program will type message ; 

D Set a switch for each DMC desired active. 
EXAMPLE: If you have 4 DMC’s but wale want to 
run the first and the last set SWR bits O and 
3 = 1. PRESS CONTINUE 
Number (IF VALID) will be in data lights 
(excluding 11/05) 

F: Set with any other switch settings desired. 
PRESS CONTIAUE. 


METHOD: 
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DYNAMIC SWITCHES 
ERROR SWITCHES 


1 SW 12 Delete print out/bell on error. 

Z. SW 13 Delete error printout. 

a SW 1S Halt on the error. 

4. SW 08 Goto be pening of the test(on error). 
Ss SW 10 Goto nett test(on error). 


SCOPE SWITCHES 
1. SWO6 Hait in ROMCLK~ routine before clocking 


micro-processor instruction. This allows the 
operator to scope a micro-processor instruction in 
the static state before it is clocked. Hit 


continue to cesyas runnin 
2. swos Cif saabied COP1’) of an error; If an ’’ is 
rinted in PYont of the test no. tex. *TEST NO. 
O ) swos is neereers*er in that test and 


sear eters SWO vgitos the a oui teh for the 
acoge } seep ( ni4td, SW1 é, Pe try HARS: 

not enabe d; here’ +, pm 
(constant); SWwOs i? we (Sfidtiton W10=0 
Ss dide=1 for intermi ttemt errors; sided 
will “Toop on teat reguardiess of error or not 
error SWi4=1, SW10=0, 5wo9=0, *SwO8=1 1,0) 


3. SW1l Inhibit interations. 
4. SW14 Loop on current test. 


STARTING ADDRESS 


Starting address is at OOO200 there are no other starting 
addresses for the DMC11 diagnostics. (See Section 4.0) 


NOTE: If address OOOO42 is non- pers ms o ere bor Paes i 
is under ACTII1 or will ~@ 
peeorsttets after all byailable “OMC11’ $ ore tested t 
program will return to *XXDP’ or 'ACT-11". 


OPERATING PROCEDURE 
When program is ipitiasiy. started messages as described in 
i 


section “4.0 wil be nted, and program will begin runnin 
the diagnostic J : “ee . ; 


it 
ct 
he 
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PROGRAM AND/OR OPERATOR ACTION 
The typical approach should be 


is Halt on error (via SW 1S=1) when ever an error occurs. 
# Clear S ‘ 

3. Set SW 14: (loop on this test) 

Be Set SW 13: (inhibit error print out) 


The TEST NUMBER and PC will be tuned out and possibily an 
error message (this depends on the test) to give the operator 
an idea as to the source of the problem. If it is necessary 
to know more information concerning the error report; K I 

THE LISTING for that TEST NUMBER which was typed out and then 
NOTE THE PC of thE ERROR REPORT this way the EXACT FUNCTION of 
the test CAN GE DETERMINED. 


ERRORS 


As described previously there will always be a TEST NUMBER and 

PC nyped out at the time of an error (providing SW 13=0 and SW 

12=0). in most cases additional information will be supplied 

is the the error message to give the operator an indication of 
@ error. 


ERROR RECOVERY 


If for some reason the DMC11 should ’HANG THE BUS’ (gain 
control of bus so that console manual functions are inhibited) 
an init or power down/up is necessary for operator to regain 
control] of cpu. If this should bagpes) look in location 
*TSTNO’ Caddress 1226)for the number o the test that was 
running at the time of the catastrophic error. In this way 
the opérator will have an idea as to what the DMC11 was doing 
at the time of the error. 


RESTRICTIONS 
STARTING RESTRICTIONS 


See section 4. (PLEASE) 

Status table should be verified reguardless of how program was 
started. Also it is important to use this shes jag along with 
ene patormptios printed on the TTY to completly i8olate 
problems. 





IOL 
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OPERATING RESTRICTIONS 


The first time a DMC11 diagnostic is loaded into core ard run 
the STATUS TABLE must be set UR. is is done by manual input 
(SWOO=1) or by autosizin (SWOO=0 and SWO7=0). Thereafter 
however the status table need not be setup by subsequent 
restarts or even ns | the next DMC diagnostic Because the 
STATUS TABLE is overlayed. The current parameters in the 
STATUS TABLE are used when SWO7=1 on start up. 


HARDWARE CONFIGURATION RESTRICTIONS 


DMC 11<MB8200)- Jomeer Wl must be in, and switch 7 of E76 must 
be in the OFF position. 


KMC(MB204)- Jumper Wl must be in. 

MISCELLANEOUS 

EXECUTION TIME 

All DMC11 device diagnostics will give an ’END PASS’ peeeeee 
Spt acy no errors and swle=0) within 44 mins. This is 
assuming SW11l=1 (DELETE ITERATIONS) is set to give the fastest 
possible execution. The actual execution time depends greatly 
on ~ POP11 CPU configuration and the amount of memory in the 
system. 


PASS COMPLETE 


NOTE: EVERY time the program is started; the tests will run 
as_ if SW1ll (delete iterations) was u (=1). This is to 
VERIFY NO HARD ERRORS’ as soon as_ possible. Therefore the 
first pass -EACH TIME PROGRAM IS STARTED- will be a ’ K 
PASS’ until all DMC11’s in system are tested. When the 


diagnostic has completed a pass the following is an example of 
the print out to be expected. 


END PASS CZD0MGD CSR: 175000 VEC: 0300 PASSES: 000001 
ERRORS: O00000 Poe a: # 2 “ 


NOTE: The pass count and error counts are cummulitive for 
each DMC11 that is running, and are set to zero only 
when the Sloane tis is started. Therefore after an 
overnight run for example, the total passes and errors 
for each DMC11 since the jegnastic was started are 
reflected in PASSES: and ERRORS:. 


Jol 
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8.4 KEY LOCATIONS 


RETURN (1214) Contains the address where program will return 
when iteration count is reached or if loop on 
test is asserted. 


NEXT (1216) Contains the address cf the next test to be 
peformed. 


TSTNO (1226) Contains the number of the test now being 
peformed. 


RUN (1316) = The ate in _ ninege points to the OMC11 
ested. EXAMPLE: (RUN) 
{30870004000001080000 Means that ONCil no.06 

is the OMC11 now running. 


DMCROO-DMCR17 

DMSTOO-DMST17 

(1500)-( 1640) 
These locations contain the information ares 
to test up to 16 (decimal) DMClls sequential 
es contain. the CSR, VECTOR as 
concerning the configuration of each DMC11. 


DOMACTY (1306) Each bit set in this location indicates that 
the associated OMC11 will be tested in turn. 
EX E: (DMACTV) 1276/70000000000011111 means 
that DMC11 no. 00, 01 ,02,03,04 wilh be tested. 
EXAMPLE: (DMACTV)’ 1276/0000000000010001 Means 
that DMC11 no. 60, ba will be wire 


DMCSR (1404) foolates the CSR of the current DMC11 under 
tes 


8.4A "STATUS TABLE’ (1500-1640) 


The table is filled by AUTO SIZING or by the greene parameter 
input genes iene? as described previous y: lso if desired b 
user; he locations may be sitbred by h A, 

suit the specific configuration. 


The example gota nae shown below contains information for 
two DMC11’ the table can .contain MC11 

y oi lowing the map is a description of the bits for each map 
entry 


MAP OF DMC11 STATUS 


PC CSR STAT1 STAT2 STAT3 


00 160010 145310 177777 000000 
o00000 


0015 1 
001510 160020 016320 000000 


ee Lol 


Each map entry contains 4 words which contain the status 
information For 1 DMC1L1. The PC shows where in core ageery 
the first of the 4 words is. In the example above the firs 
S status is in locations, 1500, 1502, 1 and 1506. The 
second OMC status is located’at iSio, iSi2, 1514, and 1516. 
a information contained in each 4 word entry is defined as 
ollows: 


CSR: Contains DMC1° CSR address 


STATI: 00-08 Ad —Peotestos hs "CREA 


HAS 
MICRO-PROCESSOR HAS 


£rcuw 
bebe 
: 
$ 
: 


gtthitits 
ui 
- 
BLS 
—4 
Ss 
a laed 
w 
2o 


t {3 AN 
aNBnC 11 PRIORITY LEVEL 


BR 
H PAC#1 (DDOCMP LINE NUMBER) 
CH PAC#e (BM873 BOOT ADD) 


TESTS ON KMC 


STATe: 


STATS: 


-O- w~< 
m 
% 
2 
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METHOD OF AUTO SIZING 
FINDING THE CONTROL STATUS REGISTER. 
The auto-sizing routine finds a DMC11 as follows: It starts 


at address 1 q3¢ test my tet g is, ncrements of 19 up 
to an ey ving ad dress 167 { the address does not time 
out, lowin done, the aes" CROM address is ort tate 


toa b yesese. then . is r P b Bk: it contains 

l 626 Onc 4 KMC11 has been Tound, if 

not, the address is R. ated” by. Abe ane the search continues. 

-1 indicates a DMC11 with no — indicates a KMC11 

with CRAM, a 626 indicates a pcr iA, an wees indieetes a 

DOMC1I-AL. Further tests nal per teras a point to 

ree ee which ai unit { all . any, is rei ef, elt a 

oop-bac connec of s installe ret var s sw § settings 
urs {8 efarus: f MUST BE 


on the line unit. 

Heete ie ieecteae SE Hatch, taal SEM aeitateS” Se 
THE UE STIONS HUST BE .. All DMC11’s in ve system 
will be found by the auto-sizer. If it does not find Bact’ 
the diagnostic must be restarted and the questions answered. 


FINDING THE VECTOR AND BR LEVEL 


The vector or ys Lettyees 300-776) is filled. with the 
instruction I0 -*2’ (next address). The processor 
status is started 7 7 and the DMC is rogrammed to gag 
The PS is lowered by 1 until the Onl ! ie het a Seley is is 
made and if no interupt eccures at level Because. , 

bad DMC11) the program assumes vector + BS level 
S and the problem s oy ~ fiv-? in the diagnostic. Once the 
problem is {iser;, he ram should be re- otus again to get 
correct vector. rf! an terupt occured; the address to which 
the DMC11 interupted to is picked up and reported as the 
vector. NOTE: if the vector reported ig ges the vector set 
, °s you; ines is a problem and AUTO SIZING should not be 


SOFTWARE SWITCH REGISTER 


If the diagnostic is run on an 11/04 or other CPU without a 
switch register then a software switch nag) oer is used to 
allow user the same switch options as described teeta HE 

If the hardware switch register does not exist or if one does 
cad it contains all ones (177777) this software switch 

register is used. 


Control: 


To obtain control at any allowable time ducing execution of 
the diagnostic the operator types a on the console 
terminal keyboord, As soon as the CTRL G is recognized, by 
the diagnostic, the following message will be displayed: 
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NO1 


=XXXXXX NEW? 


Where XXXXXX is the current contents of the software switch 
register in octal. The software control routine will then 
auiit operator action. At which time the myer ener is reqyirgs 
to type one or more of the legal characters: 1) 0-7, 2) 
Yeed(<LF>), 3) carriage return(<CR>), or 4) control-U 
CTRL U). No check is made for Lege! te. If the input 
character is not a <LF>, <CR>, or CTRL U it is assumed to be 
an octal digit. 


To change the contents of the SSR the operator simp! segs 
the new desired value in octal - leading zeros need not be 
typed. And terminates the input string with a <CR> or <LF> 
gre | on the program action desired as described below. 
The input value will be truncated to the last 6 ates se typed. 
At least one digit must be typed on any given nput string 
prior to the terminator before a change to the SSR will occur. 


When the input string is terminated with a <CR> the diagnostic 
will continue execution from the point at which it was 
interrupted. If a <CR> is the only thing typed the program 
will continue without opra cies the SSR. The <LF> differs from 
the <CR> by restarting the program as if it were restarted at 
address 20u. 


If a CTRL U is tages at oe point in the input string prior to 
the terminator the sage value will be disregarded and the 
prompt displayed (SWR = XXXXXX NEW?). 


To set the SSR for the starting switches, first load the 
diagnostic, then hit CTRL G, then start the diagnostic. 


PAGE: OO13 
SEQ 0013 


DOCUMENT 
HELREAK KE REEES 
“CZDMGD LST 
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COPYRIGHT 1978 
DIGITAL EQUIPMENT CORPORATION 
MAYNARD, MASS. 01754 
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MAINDEC-11-CZDMG-D DMC11 CROM AND JUMP TESTS 
COPYRIGHT 1976, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 01754 


ure Te A SPECIAL TEST WHI on ts , my EXECUTED ONE TIMES 


it BE Nac TER a ise "TE LOADED, IT ai T. TYPES" ON 


—E A TYPE OUT PATCH LOCATION 


LERKARLAEHSKSHHRRRRHRHRKHEN TEST 2 ate A KMe (OMe ITH 


URITTABLE CONTROL SFORE)” TO LOAD THE CRAY WITH THE DOCH 
T:COeAL HIGH SpeeD Eobe,. BonenhTe “eisai obe "FHe StAtUs 


AT3 BIT1 DETERMINES WHICH MICRO-CODE 
& N THE KMC. LOOP ON THIS TEST Fon. ut FEW SECONDS 
L Nance 
Spegenasneussongssoorgeeer TEST 3 KHMER HERE RERERHR HELE HEE 


TEST OF BRR 
VERIFY THAT A wEST 0 OF R_RSH (011) OF A MICRO-INSTRUCTION 
SHIFTS THE RESULTI DATA RIGHT ONCE. 


eponesonntgraqeasenenenans TEST 4 RRRRKRRERRRRRRE REAR REE RHEE 


re 
FEST READS IS EACH ROM_LOCATION AND COMPARES 


15f°,B. OTHE He TUMPC I) CRIEROCPROGESSOR™ INSTRUCTION. 
bbonG-B SUPPORTS THE FOLLONING PART NUMBERS: 


DMC11-AR__ (MB200-YA) 
23-630A 


23-636A9 
53-63 Ag 


DMC11-AL__ (M8200-YB) 
23-622A9 


23-629A9 
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2123 


2180 


2237 


2234 


2352 
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LKERELALELEA ERA RERRERE TEST S RERRRRERRREE EERE RR RARE RK EEE 
CROM TEST OF JUMP(TI) eee + (emniipieapaaiacanete “NSTRUCTION. 


PERF 
VEIN TERT HE ToPP Date ooo TH SRO UTE PesGenen By one). 
ab he he tg et TEST G RHERRRERREE EEE R EEE RRE REE RES 


PERF FOR} 1 oF Ag fidy nerRuCTy 5 Acne -rnoce se INSTRUCTION. 


Y THE JUMP By RE No THE CGNTENTS OF THE NEW ROM PC 


epeecgcngwensyanseqeenaens TEST 7 RREMKRRR REE RE EEE EEE EEE 
CROM TEST OF JUMP(I) ON C BIT SET 11 po) eae INSTRUCTION. 
SET THE C BIT, PERFORM THE JUMP INSTRUCTI 

VERIFY THE JUMP BY READING THE CONTENTS OF oN HE NEW ROM PC 


SEKKRERARRARRRARRRRRERRERREHER TEST 10 Ree R ARERR EERE EERE EERE EE 
CROM TEST OF JUMP(I) ON 2 BIT SET MICRO-PROCESSOR INSTRUCTION. 
SET THE Z BIT, PERFORM THE JUMP INSTRUCTION 

VERIFY THE JUMP BY READING THE CONTENTS OF THE NEW ROM PC 


Rpsncusegengequeseesensnss ue TET At 6-06 2 HE 36 06 9 Ae HH a HH HH EE 
CROM_T RO-PROCESSOR INSTRUCTION. 


SEP BEAD PRESS de een ABRTE SE Me new on ec 


CRON TEST OF -TUMPCT) -ON BR Ay 2 LS EMME HE HE HE He EES 


CROM ThE OR Trait, PERE ORM He JUNp PIERO SOR INSTRUCTION. 


SERIEY THE THE JUMP oF dary He NEW ROM PC 
RRKRBSLMKKRKSRKRKKEREEERER "est 13 RO-PROGESSOR INSTRUCTION. 


SROM TEST oF att” PERFORM TH SOR INSTRUCTION. 


VERIFY THE JUMP’ BY REARING wuts, (beTeusst OF i” NEW ROM PC 


SE ECT) ON BR? T t A? RERKRERRARRRRRKKKKRRERRRAHEE 
CROM TEST OF JUMP(I) ON BR MICRO-PROCESSOR INSTRUCTION. 
SET THE BR7 BIT, PERFORM re SUMP NSTRL'CTION 

VERIFY THE JUMP’BY READING THE CONTENTS OF THE NEW ROM PC 


gosnouseesausqeaseusenseae TesT 45 Peete tt et ttt ttt tttiitst ities 
CROM TEST hn A Dap al INSTRUCTION. 


Hate Me EEF i alt eR RbutE ee cnenr ev one). 


SERRE REREREEE TEST 16 BERR R ae RELHHREERH RARER HARES 
CROM TEST OF st adel * 9 ON Z fe’ SET MICRO-PROCESSOR INSTRUCTION. 
» PERFORM T JUMP INSTRUCTION, 


I 
VERIFY THAT THE’ JUMP DID NOT OCCUR BY READING’ 
THE CONTENTS OF THE NEW ROM PC(IT SHOULD INCREMENT BY ONE). 
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0016 
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2468 
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RKAKRKARERERRERRERRHRSRHRKES TEST 17 eee RRR RRR RER RE RRRRRRHR EEE 
CROM TEST OF JUMP(I) ON BRO SET MICRO-PROCESSOR INSTRUCTION. 
CLEAR THE BRO BIT, PERFORM THE JUMP INSTRUCTION, 

VERIFY THAT THE JUMP DID NOT OCCUR BY READI 

THE CONTENTS OF THE NEW ROM PC(IT SHOULD INCREMENT BY ONE). 


SHEERERLERRRHRHRRRREREEEEE TEST 36-06-36 06 90 38 HE 0 HH a HE 
CROM ‘THe BRI ae on one = M Been CTOLeT Ton INSTRUCTION. 


CLEAR T 

VERIFY T a Sump SRNoT noctuR “BY. READ 

THE CONTENTS ed THE bie ROM PC(I POTN vt BY ONE). 
Reon TEGT OF JUMPCL) ON BRY b 7 et RERKRKRRRARERHRKKAKKRAAAKRAKREKE 
CROM TEST OF JUMP (1) ON p pe INSTRUCTION, INSTRUCTION. 
VERIFY so a a Sumpe BF pe seit gy READ! 

THE CONTENTS OF THE NEW ROM PC(IT SHOUL THCREMENT BY ONE). 
aRON TEST OF JUMP(I) ON BR TEST Cl RHRRRRRRREREERAAALEERA ARLE 
CROM TEST OF JUMP(I) ON BR7 SET NICRO-PROCESSOR INSTRUCTION. 
CLEAR THE E BR? IT, PERFORM THE JUMP INSTRUCTION, 


VERIFY T THE JUMP DID NOT OCCUR BY READING 
THE CONTENTS OF THE NEW ROM PC(IT SHOULD INCREMENT BY ONE). 
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INTRODUCTION TO DMC11 DIAGNOSCTIC 


; *MAINDEC- 41° ¢ZDNG~0 DMC11 Nie M oe ae TESTS 
; #COPYRIGH 1976, DiGITAL EQUIPMENT CORP., MAYNARD, MASS. 01754 
; STARTING PROCEDURE 
OAD PROGRAM 
LOAD SS _ 000200 
; SWR=0 OSIZE DOMC11 
; SHU? at CURRENT OMC11 PARAMETERS 


=1 ti T NEW DMC11 PARAMETERS 


WILL TYPE “MAINDEC-11-CZDMG-D DMC11 CROM AND JUMP TESTS” 
i Para WELL T STATUS MAP 

*PROGRAM WILL T *R" TO INDICATE THAT TESTING HAS STARTED 

:AT THE END OF A PASS, PROGRAM WILL TYPE PASS COMPLETE MESSAGE 

tAND THEN RESUME TESTING 

* SUBSEQUENT RESTARTS WILL NOT TYPE PROGRAM TITLE 


; SWITCH REGISTER OPTIONS 


, 
SW1S=1 sai], ERROR 
SwW1i4=400 ;=1,L00P CURRENT cesT 
ali gnc ssl, pert ERROR TYPEOU 
SW12=10000 321, 0EL T OUT/BELL ON ERROR 
SW11=4000 iat bun T a’ RATIONS 
SwW10=2000 >21,ESC TO NEXT NED on ERROR 
2 j= BRO 3=1,LOO0P WITH T DATA 
= ;=1,LOO0P ON E 
SWO7=200 3=1,USE CURRENT DMC11 PARAMETERS, =0,AUTOSIZE DMC1l1 
vm 30 ;=1, HALT BEFORE CLOCKING MIC O-PROCESSOR INSTRUCTION 
SWO4= 
SWO3=10 ;RESELECT psy Sele Ss 19 BE TESTED (ACTIVE) 
SwWO0e= ;LOCK ON TEST SELE 
SwO1=2 ;RESTART PR ‘eo EC "SELECTED TEST 
SWOO=1 ; INPUT DMC11 PARAMETERS 


PAGE: 
SE 


0018C2 
Q 0018 


CZO0MGD.P11 


eM A ttt de Me Ae ge be dagly 
WLW OWONMUES Wr 


Owon 


71 


OS-JAN-78 11:08 


177776 
001209 


GENERAL DEFINATIONS AND EQUIVALENCIES 


;REGISTER DEFINITIONS 


ea SGENERAL REGISTER 


a GENERAL Recteren 

R4=%4 + ENE RAL RES 181 ER 

RS=%S iG NERAL REGI 

SP=%6 OCESSOR STACK ROOINTER 
PC=%7 {PROGRAM COUNTER 


; LOCATION EQUIVALENCIES 


PS=177776 ;PROCESSOR STATUS WORD 
STACK=1200 ;START OF PROCESSOR STACK 


fata wl a DEFINITIONS 


PUSHISPEE7¥G ; DECREMENT PROCESSOR STACK 1 WORD 
PUSHRO=10 5 aRCae re N NT PROCESSOR STACK 1 WORD 


A K 
iREST ROM src 
ee SPseueus 


OR 
Paopeee | HINGREMENT STACK THICE oe cau 


- DEFINITIONS 


on t-vtre 
SS88 


f—nnnnun 


B96 


HHH OoOKnmwOtu 
o0o0 
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CZDMGD.P11 OS-JAN-78 11:08 TRAPCATCHER FOR UNEXPECTED INTERUPTS SEQ 0020 
a 5 s RHKRAKASKRRARASRERELRARAERAALARAAAKLERA LALA LAA ALELARAAALARARAAAAARAAARES 
101 : s TRAP ATCAER FOR I NTERRUPTS 
102 THE STANDARD era BoE IS PLACED 
103 BET WEEN ADDRES 0 RODRESS 77 
198 :IT LOOKS LIKE Speee HAL 
ine : s KKK RKRRAKRARERRRERRERERAARAAAK RAL AARAAAAA RA HLALALALAAAAARARF LA ARARAEREE 
108 oo0000 .=0 
109 ;STANDARD INTERRUPT VECTORS 
Lit ; 
4S oo00024 224 
113 000024 005336 .PFAIL POWER FAIL HANDLER 
118 635088 en 340 : i SERVICE AT wef 7 
Lie 34 tt 30 ay iSEnVice AT Leve ER D {SPATCH SERVICE 
11g Sono3e eee om 340 sevice & AT LEVE 
129 ooo op0000 ee YELLE SL PATE cr-11 on Door 
ee 
152 000044 0000 0 Chive FOR apse OR XxOP 
123 003522 $ENDAD i pay USE WITH Abroty *SR XXDP 
18 po005e .=52 
16s oooc0se 0 fe) ;ACT-11 PROGRAM CHARACTERISTICS 
127 000174 .2174 
128 000174 oO00000 DISPREG:0 ;SOFTWARE DISPLAY REGISTER 
189 000176 o00000 SWREG: 0 :SOFTWARE SWITCH REGISTER 
131 000200 . 2200 
132 oo0200 000137 oDd2002 IMP . START ;GO TO START OF PROGRAM 
134 
135 001000 .=1000 
136 091900 005377 O40S1S O47111 MTITLE: .ASCII <377><12>/MAINDEC-11-CZDMG-D/<377> 
(2) 0016 104 041515 O30461 "ASCIZ /DMC11 CROM AND JUMP TESTS/<377> 
132 001200 .=1200 
133 ; INDIRECT POINTERS TO SWITCH REGISTER AND LIGHT DISPLAY 
141 5 
142 001200 177570 DISPLAY: 177570 
143 001202 177570 SWR: 177570 


WUIUNIUIUTU £ 
WfWr-OwW 


ee ee ee ee be ee ee he ee be ee ee be Be ee ee ee 
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; INDIRECT POINTERS TO TELETYPE VECTORS AND REGISTERS 


001204 177560 TKCSR: 177560 ; TELETYPE KEYBOARD CONTROL PEgtstEn 
001e06 17756e TKDBR: 177562 ; TELETY PE KEYBOARD DATA BUFFER 
O001e10 177564 TPCSR: 177564 TELEPRINTER CONTROL REGISTER 
OOlele 177566 TPDBR: 177566 ! TELEPRINTER DATA BUFFER . 
;PROGRAM CONTROL PARAMETERS 
1214 RETURN: ; SCOPE S 
Boisie 000000 NEXT: f i AGORESG OF NEXT Fest tog BE "EXECUTED 
001220 LOCK 0 ;ADORESS FOR LOCK ON x + 
OOleee 900003 ICOUNT: 3 ;NUMBER OF ITERATIONS THAT CURRENT TEST WILL BE EXECUTED 
paige? 00 LPCNT: QO ;NUMBER OF ITEREATIONS COMPLETED 
lee6 0090 TST 0 ;NUMBER OF TEST gN PRO 
001230 000 PASCNT: O ‘ee OF PASSE core ed 
O001e3e 900000 ERRCNT: QO ; TOT fs aes OF ERROR 
001234 000000 LSTERR: O ;PC OF LAST ERROR CALL 





001236 STRTSW: O ;SWITCHES AT START OF PROGRAM 
901240 Stat: : :D0M STATUS WORD STORAGE 
Bp sua MASKX: 0 
0012 TEMP1: 0 s TEMPORARY TORAGE 
001 TEMPe: O 
D0 1 Bed tema: 8 s TEMPORARY TORRGE 
1356 TEMPS: 6 TEMPORARY STORAGE 
1 SAVRO: O *RO STORAGE 
leb2 SAVRI: O ?R1 STOR 
1264 SAVRE: = ?Re STOR 
1 SAVR3: ?R3 STOR 
i 2 SAVRY 0 :R4 STOR 
1274 SAVSP: 8 Statue POINTER STORAGE 
1 Savec: Oo AM COUNTER STORAGE 
D i ZERO: } 
001 MEMLIM: T LOCATION FOR NPR’S 
001 30 prac Vv: - BLK 1 inet *s SELECTED ACTIVE. 
1318 SAVACT "BLKW 1 ‘OR let ata OF eats s 
001314 VNUM: :BLKW 1 NUMBER 
001316 UN: 6 ‘POINTER TO RUNNING DEVICE. 
001 D147. CREAM: MAP- NT R. 
BBL aee | Botese GRE | OBNT MAPSY t TABLE POINT 


fururorururururorurururuoru 


furor) 
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he po CONTROL FLAGS 


001324 NIFL YT ; PROGRAM NITIAL IZATION FLAG 
BOL aBe ea se Le: “BY te 5 + ERROR FLAG 
001328 000 COKFLG: -BYTE O * LOCK on” CURRENT TEST FLAG 
1327 000 QV.FLG: :BYTE 0 ; QUICK aver ee FLAG. 
oom :ON F pass SF EACH DMC11 ITERATIONS WILL BE SUPPRESS 
; DEF NITI ONS F OR TRAP SUBROUTINE CALLS 


INI 
OINTERS T BE FOUND 
iF N THE FABLE SUBRO eur ANS CEN Brine THE DEFINITIONS 


;1 
jt MEME AE AE AE AE ae a AE aE a a a a a aa aa aaa aaa aa EE 


001330 * TRPTAB: 
Lowe SCOPE=TRAP+0 ;CALL TO SCOPE LOOP AND ITERATION HANDLER 
001330 3576 . SCOPE 
omaeen 4301 SCOP 1=TRAP+1 ;CALL TO LOOP ON CURRENT DATA HANDLER 
1O440e TYPE=TRAP+2 ;CALL TO TELETYPE OUTPUT ROUTINE 
001334 3766 . TYPE 
403 INSTR=TRAP+3 ;CALL TO ASCII STRING INPUT ROUTINE 
001336 oso sir 
104404 INSTER=TR ;CALL TO INPUT ERROR HANDLER 
001340 004154 : HSTER 
10440S PARANSTRADS ;CALL TO NUMERICAL DATA INPUT ROUTINE 
001342 004174 . PARAM 
104406 SAVOS=TRAP+6 ;CALL TO REGISTER SAVE ROUTINE 
001344 004374 Rane 
saat the RESOS=TRAP+7 ;CALL TO REGISTER RESTORE ROUTINE 
104410 CONVRT=TR : 8 ;CALL TO DATA OUTPUT ROUTINE 
001350 466 3 T 
411 CNVRT=TRAP+1 ;CALL TO DATA OUTPUT ROUNTINE WITHOUT CR/LF. 
0013S2 4472 ° NUAT 
~aanae 41 MSTCLR=TRAP+12 ;CALL TO ISUE A MASTER CLEAR 
sont LAY=TRAP+1 ;CALL TO DELAY 
-_ aC) nena Th rst CALL TO CLOCK ROM ONCE 
356 7 . 
anaes at DATACLK Ron oh TO CLK DATA 
r 4 7 
ome Baie TIMER TRAP - ing TO DELAY A CLOCK TICK 
= +1 3 
001364 O0s61 TIMER ; 


bs RRR RERA AERA AEE R ARE RARER EERE EERERERERE REAR RAR AR REE REE RREE ERROR EE EE 


st P AMA SEARS Be 


BBB SSBB SSBB sess 


ed ed el ed ne a ed ee ee ee 
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-Pll OS-JAN-78 11:08 PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS. é' SEQ 002 
on CONTROL INDICATORS FOR CURRENT DMC11 UNDER TEST 


star : 
659008 State: 0 
STAT3: 


ae VECTOR AND REGISTER INDIRECT POINTERS 


SES 
8 
8 





001374 VEC: ;POINTER T 11 NTERRUPT T VECTOR 
Ae ae Die feat fecata ieee) Wie 
Botupd Buco 5 ; SINT R te 11 CONTROL ATUS STE 
001406 OMCSRH: O :POINTER TO 11 CONTROL a REGiet R HIGH BYTE. 
ae Pres: 8 SBOINTER 18 Ent! B9MT ROVE TERCET"S, 
Botaia MPOb: :POINTER TO DMC11 PORT REGIS TER(EE SEL 6 
deamente 
corse BBpNeE io 


Re, Tus REGIST R FOR DMC11 NUMBER OO 
Bae LINE ® re 11 NUMBER OO 


A meatsy R FOR OMC11 NUMBER O1 
bee i ieere 11 NUMBER 01 


: RON Ree ss Roe os NUMBER 02 
a eens REGISTER REO DMC11 NUMBER O3 


ll NUMBER 03 


ae 


wmuwiw 


pe 
orrcVMoO 


Heke BERS 


A a ISTER FOR DMC11 NUMBER O4 
ay onan os 


- 
= 





oe 
DPDD POPE pow pomD 
KRKKRX 
EEre 
Od ee eee ed ee ee eee 
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Led cee eed eel eed see ed sed ek ee sed sed ede ee] eed ed Se dd ed nd etd dd eg a et ee a ee et 


fu ee ee ees 
N w WONOUIS Wr O 


Ley] AN) 


iniatntncntatarasay 
8898 e888 8888 BEBs BeBe 


ere 


ashe tS 


Ww 
rat 
88 88 


Ree 


Ww 
ur 
wo 


A 


wu) 
o Ene 


=\2\e@ 
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000001 
000001 


000000 


eh ee ee ee 
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PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS. SEQ 0024 


s CONTRO STATUS REGISTER FOR DMC11 NUMBER OS 
; VEC on ee DMC11 1 eee OS 


ORE STATUS * WORD Pore are a 


as Mm Udt. # REGISTER FOR DMC11 NUMBER 06 


DMS106: .BLKW 1 NUMBER O06 
: 8 DMC11 NUMBER O06 
BNeS0e; ZBLKW ants ee 
ze A REGISTER FOR OMC11 NUMBER 07 
peter: a ere Bs SE 
7: .BLKW INES F 11 NUMBER 07 
DOMS307: .BLKW 
DMCRIO: .BLKW conten. STATUS REGISTER FOR DMC11 NUMBER 10 
: FOR R 1 
Reis: Bs Gee ieee ot hulben 10 
DMCR -BLKW REGIST B Fd DMC11 NUMBER 11 
et aN aay 
-BLKW NUMER ll 
.BLKW 
. BLKW one. STATUS 1 MUMOER FOR OMC11 NUMBER 12 


Ober Me LONEW FOR ONCLT NURBER 12 
5 OON TOR FOR DMeL peci ster + DMC11 NUMBER 13 
: DOCH Lis a FOR DMC11 NUMBER 13 


A REGISTER FOR DMC11 NUMBER 14 
oF eRe 


Fy as POR 11 NUMBER 14 


ea ieee REGISTER + DMC11 NUMBER 15 


“LINE® FOR OMC11 NUMBER 15S 


as B88 BROS Bos Bees es 


enna, STATUS pEaTsT R FOR DMC11 NUMBER 16 
FOR OMC11 R 16 
DoE Lise FOR DMC11 NUMBER 16 


CON TOR FORD 11 RURBER ts DMC11 NUMBER 17 
sDOCHE LINE® FOR DMC11 NUMBER 17 


AAA 
Eee 
ee RRR Re eR eke he ee ee ee he he he 


ed cel el seed ced sed eee el oe cd ee nd nd) ed ed Se grt ny ee ey eo ee nr 


2 NNNNV roo muww ££te WWWW Prt eee C00 


5 


MOe 
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CZDMGD.P11  OS-JAN-78 11:08 PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS. SEQ O025 
3e7 ;DMC11 PASS COUNT AND ERROR COUNT TABLE 
365 Milkgnlidag inn 2 FATE ae a 
3e¢ 881788 Shere: ‘o PASS COUNT FOR DMC11 NUMBER 00 
366 001704 ERCTOO: O PERROR COUNT FOR DMC11 NUMBER OO 
38 881598 ERETBL: 8 ERR SR RuUnT’ POR DRat : NUMBER O1 
ae anit ERCTOS: 0 iEREOR COUNT FOR DML NUMBER Be 
ae Ot ERCTOS: O + PR SSR COUNT FOR DNC NUMBER 03 
358 PACTOY: 0 PASS COUNT FOR DMC11 NUMBER 04 
378 ERCTO¥: 0 FERROR COUNT FOR DNC11 NUMBER O4 
a ERCTOE: © PRRs R RUT FOR DACL1 NURBER OS 
PACTOB: O ;PASS COUNT FOR DMC11 NUMBER 06 
ae ERCTOb: O SERROR COUNT FOR DMC11 NUMBER O06 
PACTO?: O PASS COUNT FOR DMC11 NUMBER 07 
7 ERCTO?: O ‘ERROR COUNT FOR DMC11 NUMBER 07 
a PACTIO: O ;PASS COUNT FOR DMC11 NUMBER 10 
330 ERCT1O: O ‘ERROR COUNT FOR DMC11 NUMBER 10 
35 ERCTIL: © i PRR SR RBUNT POR DMEL1 NUMBER: 11 
336 ERCTIs; 0 tERSSR COUNT FOR DHL NUMBER 12 
2 PACT13: 0 ;PASS COUNT FOR DMC11 NUMBER 13 
3393 ERCT13: 0 FERROR COUNT FOR DMC11 NUMBER 13 
“i cee: 8 AREER RE 
dos ERcTiC: O PRRSR COUNT FOR -DNCLL NUMBER. TS 
407 PACT16: O ;PASS COUNT FOR DMC11 NUMBER 16 
408 ERCTI6: O FERROR COUNT FOR DMC11 NUMBER 16 
aif ERCTIZ: 0 OO RO UNNT POR OMe L1 NUMBER: 17 
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413 
FORMAT OF STATUS TABLE 


eee mew ome eee meee ee ee ee ee eee ee ee ee eee eee eee OSS eee eee eS eee ee 


CSR 


fafetafefadefedetetvtetelrtot etal sien 


I 
et le oe ae es # ; STATe 


PTYTTEPLL PTTL TT fefep sr 
TE A SS OE SS Re SB ee ee 
ce eh nett nh Aton 
CSR: CONTAINS DMC11 CSR ADDRESS 
STATI: pitiess his oe. TOR On Pepe Ss 
FE Ce eee oo 
T14=0 OT 
BITL Line “teat 
HLS at 
178 ll re 11 BR PRIORITY LEVEL 
STATE: SOM PUTRe SULTRY Bb BAO Bs BS 
STAT3: err 7 et Fo "AONE TESTS ON cpoSoren OZOMI ONLY) 
Bzon arr dae -CODE WRITTEN F FROM RUNNING 
SiTiza Bret T-ah besohe"E@i SBEEB MIGRE= 
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CZDMGD.P11 OS-JAN-78 11:08 PROGRAM INITIALIZATION AND START UP. £Q 0027 
468 
45 ; PROGRAM_INITIALIZATION 
470 :LOCK OUT INTERRUPTS 
471 :SET UP PROCESSOR STACK 
472 :SET UP POWER FAIL VECTOR 
473 >CL PROGRAM CONTROL FLAGS AND COUNTS 
474 :TYPE TITLE MESSAGE 
476 012737 000340 177776 .START: MOV #340,PS ;LOCK OUT INTERRUPTS 
477 002010 012706 001200 MOV aSTACK, SP :SET UP STACK 
478 9020 4 16737 0053 00 MOV #.PFAIL. aee4 :SET_ UP POWER FAIL VECTOR 
479 737 1310 001314 MOV DMNUM , SAVNUM : OF DEVICES IN SYSTEM. 
480 0020 7 Ol CLR SWFLG : CLEAR T TYPEOUT FLAG 
481 1 901 CLRB ERRELG sCLEAR ERROR FLAG 
4 h 7 132 CLRB V.FLG : 0 QUICK VE IFY FLAG 
dey Boss Blsray Batsro Baise FY timed RICK: Ser Bees” count hae. eornreR 
es ' ” - . 
48S 002060 018737 960808 001316 MOV #61T1S, RUN’ ;POINT SINTER TO FIRST DEVICE. 
486 12700 001702 MOV SCNT. MAP, RO :PASS COUNT POINTER TO RO 
487 23S: CLR (RO)+ ;CLE E 
488 74 2700 oo02002 CMP SCNT. MAP+100,RO ; 1? 
489 992199 1374 BNE 23$ :KEEP_GOING 
490 0021 905037 001234 CLR LSTERR ; CLEAR LAST ERROR POINTER 
491 002106 18732 0000 001226 MOV #1, TSTNO : UP FOR TEST 1 
492 002114 012737 001214 MOV #.START,RETURN ;SET UP FOR POWER FAIL BEFORE 
493 : TESTING STARTS 
494 122 013746 MOV #6,-(SP) :SAVE CURRENT VECTORS 
uae 138 Bi3549 oo0004 HOV ey ae SET UP FOR TIMEOUT 
49 1 615535 177570 001202 MOV #177570, SUR SET UrR of HARD SWR ADDRESS 
498 002146 12737 177570 001200 MOV #177570, DISPLAY ;SET O AY TO HARD SWR AODRESS 
4 002154 777 177020 CMP s- ?REFERENCE HARDWARE SWITCH REGISTER 
5 162 1402 BEQ 6$+2 ;IF = “3 T SWR ANYWAY 
501 164 07 BR 7s, !IF IT EXISTS AND NOT = -1 USE HARD SWR 
502 166 6S: CMP (SP)+, (SP)+ ;ADJUST STACK 
503 1 Ig 000176 o01202 MOV aSWREG, SWR ‘POINTER TO SOFT SWR 
504 002176 012737 000174 001200 MOV #OISPREG, DISPLAY:POINTER TO SOFT DISPLAY REG 
50S 002204 012637 000004 73: MOV (SP)+, 984 > REST VECTORS 
5 o0ee19 12637 990006 MOV (SP)+’ae6 ; 
50 14 1 1324 TSTe INIFLG tHAS INITIALIZATION BEEN PERFORMED 
508 ogee 001006 NE 205 BR 
503 2 003522 oo0042 MP #SENDAD, a#42 tIF ACT-11 AUTOMATIC MODE, DON’T TYPE ID 
510 O0e2e 1402 BEQ 20$ 
Sil 2 40¢ 991000 TYPE MTITLE ;TYPE TITLE 
ole B38 7 007610 20S: ISR Pc, CKSWR ;CHECK FOR 
51 17737 176734 001236 MOV aSWR, STRTSW :STORE STARTING SWITCHES 
514 250 735 000042 TST IS IT RUNNING IN AUTO MODE? 
ele & posa3? 36 BFR STRTSW OR EO oLEAR SWITCHES 
213 35 erereatey 001236 BIT Sooo STRTSW TF ofiab=4 QUESTIONS ARE ASKED. 
518 001012 BNE 17S :BR_IF =1 
519 4 1057 001236 TSTB STRTSW :BIT7=1?? 
520 1 7 BPL 7$ :BR IF SWO7=0 
521 2 005737 001306 TST DMACTV SARE ANY DEVICES SELECTED? 
S22 002304 001006 BNE 16$ :BR IF YES 
523 2306 104402 007155 TYPE, | NOACT :NO DEVICES SELECTED. 


iS 
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OS-JAN-78 11:08 PROGRAM INITIALIZATION AND START UP. SEQ 0028 
oo00000 HALT ;STOP THE SHOW 
000776 eek - BR bce auto. — 5°00 THEA aGoNTaNy SWITCH 
532 Bai 3e4 168: 125 INIFLG ip Ret 
001410 BEQ 21$ YES 
105737 001236 rSTe STRTSW :IF USING SAME PARAMETERS DONT TYPE MAP 
333 000006 001236 BY #BIT1!B1T2,STRTSW:IS TEST NO. OR Lock SELECTED 
4 BEG 24s ite Me TYPE ST Tus 
I$ FY ves ee NNOT YPE Rey Brus 
005137 001324 21$: COM INIELG ETF 
O12? abt MOV &DM. MAP RY iat gots 
10437 001246 cs: MOV R4, TEMPL 
Lous? 001250 nov (Ra) +, TEMPE OFT cor - sunt 
tata? 12 MOV tBu) +, TEMPS iOet pOnF 
12437 1254 MOV (R4)+) TEMPY eet STATe 
0 2437 001256 MOV (R4)+) TEMPS ET STAT3 
410 CONVRT YPE OUT STATUS MAP 
bo74se XSTATG : 
eyeeaia 001500 1S: MOV aor. MAP, RO ;RO POINTS TO STATUS TABLE 
nT Ce ee ee 
a 
;;*THIS rest VERIEYS. TH Teer THe TPotaT KNCLIS ARE at THE CORRECT FLOATING 
;:#ADDRES Pa F atts T st "EBILS IT bebe Bh HARDWARE ERROR 
i; #CHECK THE ADDRES si Hottie BEF ont (67 DH U,DUP. LK DMC ,0Z,KMC). 
Pa ae maaan evseetBe FR ty adds SEVERN ar 
t #ADDAESS, 760000. T Eat MO, BE Toe SHOGL EMPTS TO GET Pee 
+t #RI RODRESSES. AF Ro Ye ADDRESS TO WHAT IT TOLD 
HHavOU Ty THE ar’ fine ‘ites iT BAY fore Ang TE Lhe You A up PIFEERENT | ADDRESS 
33 %T INAL ADDRESS 
js HWILL "BE CORR T CAS one’ as” AT oeVieES” Th Nee OF THE DMC’S ARE 
; eee Lsvsseneeneneneenetnentnernennenennnneenne 
13746 0 MOV #4,-(SP) v \ 
Biac4e poonde Mov #2’ -(8P) Q 
7 000006 CLR ase’ Ave VEC+2 
37 001252 CLR TEMP3 ;CLEAR_FLAG 
. roy R ;RS=0= . gare eats 
1 001404 AUSTRT: MOV (RO), DMCSR *GET NEXT DMC CSR 
001564 BEQ AUDONE : 
? TST ; DMC KMC? 
BNE 1 : KMC 
100000 ooD0002 BIT #BIT1S,2¢(RO) *CHECK FOR DMC CS 
061 BNE KIP ; i SKIP IF NOT DMC 
BR $ TS A DMC SO CONTINUE 
032760 100000 ooo0ce 1S: BIT #BIT1S,2¢(RO) CHECK FOR KMC CSR 
oo14 4 BEQ SKIP set a NOT kc 
127 002674 OO0004 2s: MOV #NODEV, 284 E y Fo TIMEOUT 
005705 TST RS > DMC KMC* 


001003 BNE 3$ ;BR rtd Rh 
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012703 
gie7es 


Se 


[o)=] 
a 
or 
S86 


Neen 


Pe 


8 
Srerkeee 


Rencenee 
NfeNIN 


-_ 
oN 
R 


Reeds 


001404 
000010 


000010 
001404 


seeitta 
8b1404 
003022 


0012eS2 


002700 


77777 
leb2 


ooo004 


ooo0de 


oo000e 


003022 


001276 


001eS2 


3$: 
4S: 


FLOAT: 


FY: 


1$: 
es: 


1$: 


aBeQ ESAS 


a= 


o2700Ow 
—“ Ps) 
404 


mA 
5) 


BEBRaESE 


#6,R3 
4S 

soe TAB, R2 
#160010, "RI 
(R2),R4 

RY, Ri 

R1 

R4Y,R1 

R3 


FLOAT 
#ERR, J84 
R1, xLOc 
RS 


1 
#81715, 2(RO) 
SKIP 


es 
A eaten 
S 


tADS DMCSR 
AUDONE 

#10, RO 

eADS baesR 
AUD 
XLOC,R1 
(R2)+,-(R3) 
TEMP3 

1§ 


#ERR, SAVPC 
s71 TEMP3 
R1, SAYRI 


RS 
3$ 


4$ 


IS COUNT OF DEVICES BEFORE ONC 
COUNT OF DEVICES BEFORE KMC 
PONTER 


z 2 


3 DEVICES TO CHECK FOR? 


Ss 
DMC’S ARE LEFT, SET UP FOR TIMEOUT 
T OMC/KMC MC ADDRESS 


rat ig al 
Maia Se 
323 
ey 
Z 


O CONTINUE 
MC_CSR 


zis 288 
3 


SOW0Or 
3 
ADAX 
38 
=x 

-n 

w 

w 


Ah 
xXxODx~< 
4_Oo3m 


Ss 
ADDRESS 
GAIN 
XT CSR IN TABLE 
SR 


Beet eee Te. of -KMC ADDRESS 


SS eacice 


ry aed DMC/KMC ADDRESS 

CONT 

jON T MEOUT, INC R2, DEC R3 

Oe, FLAG IF = 0 TYPE HEADER 
ADER MESSAGE 

CONF TGURE ON Pout OR!!f 

; TYPE OUT ERROR P 

; TYPE REST OF HEADER 


SET FLAG SO IT ore. GETS TYPED ONCE 
;SAVE R1 FOR TYPEOUT 

; TYPE CSR VALUES 

{DMC 0 on RC 


; CONTINUE 


PAGE: 
SE 


0029¢2 
ao 


029 


FO3 


PAGE: O0030¢2 
SEQ 0030 


: 


AAA ARAAAARS 
BsarouzZan—3 


@ 
-_ 


SeSBRRREER 


003010 


8888 
8885 


= $24 
oe 


ee 


Subs oouulsoD 


BENSERRZSWORD 


B 
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001500 


176104 
006006 


boi 306 
Boosue 


001000 


001200 
000006 


3$: TYPE 


KMCM 
4S: CMP (SP)+, (©P)+ 
BR OK 

ERRPC: 1 
-BYTE 6,2 
SAVPC 
CONTAB: 2 
-BYTE 6,4 
XLOC 
.BYTE 6,2 
DMCSR 
DEVTAB: .BYTE 7 
-BYTE 17 
‘BYTE 7? 
Sgt Se 
BYTE 7 
‘BYTE 7 
BYTE 7 
‘BYTE 7 
BYTE 7 
EVEN 
XLOC: 
AUDONE: TST RS 
BNE 1$ 
MOV #-1,R5 
MOV r ; 
BR AUSTRT 
1S: MOV (SP)+,a86 
MOV (SP)+) aa4 
BIT #5WO3; STRTSW 
Q 3$ 
YPE MNEW 
CLR RO 
HALT 
CMP JSWR, SAVACT 
BLOS 
TYPE »MERR3 
BR 
2s: MOV SWR, OMACTV 
MOV Snacty Ro 
HALT 
3S: MOV #300, RO 
MOV #302 /Ri 
4$: MOV R1, (RO)+ 
CLR (RI)+ 
CMP (RO)+, (RI)+ 
CMP 1000; 
BNE 


.BEGIN: MOV sSTACK, SP 
MOV ase, ~- (SP) 


;ADJUST STACK 
;BR TO GET OUT 


30J 
;DH 
;0Q 
;0U 
; DUP 
;LK 
; OMC 
;DZ 
3; KMC 
;OMC? 
;BR_IF KMC AND ALL DONE 
;SET RS TO -1 (KMC) 
sAESEY po 8 START OF TABLE 
’ 
i OPS TORE LOC & 
;RESTORE LOC 4 
BEL 3 CIFIC DEVICES’? 
;TYPE THE MESSAGE 
7 A LIGHT 
3 OR T 
Vv 


= 
wo 


AS 
# 
“8 
=x 


: 
Es 
z 


RRYAB 


;SET UP STACK 
;SAVE LOC 6 


= bn pe Pe Pe fe Pe Be 


NSINNNNNNNNN 
Siow wou euro 


FoR 


PAGE: 
OS-JAN-78 11:08 PROGRAM INITIALIZATION AND START UP. Stra boat 
013746 oo0004 Mov ae4,-(SP) ; SAVE LOC 4 
003234 000004 MOV #2$, 084 ‘SET UP FOR TIME OUT 
—— ss: EBB) Soe age se 18 
a? 1S7776 . che #157776, RO is iT Ar LEAST 28K 
7776 SUB #7776,RO ‘SAVE 2K FOR MONITORS 
i A tH ierotoRe Toe yee 
1 32 000006 nov (SP)+, 386 {RESTORE LOC 6 
2s: CMP (SP)+, (SP)+ : ADJ 1. STACK 
1 SUB #4, RO :GET LAST GOOD ADDRESS 
182700 7776 Sus #7778,R i SAVE 2k FOR MONITORS 
2700 B 30008 CMP #30000, RO iS IT 8k" 
esa 037400 nov #37400, RO :IF 8K DON’T SAVE 2k 
012737 900340 177776 108: MOV #340,PS *LOCK OUT INTERRUPTS 
737 001236 BIT #B1T2, STRTSW *CHECK FOR LOCK ON TEST 
54402 4 meee SL ocK BR ET Ne Leek RES ERED. 
Otz7a7 Boge40 903612 MOV bNOP TTST ‘AD SUST oPE ‘ 
12737 00024 3614 HOV #NOP; TTST+2 ;SET UP ot 
tara? 730 003612 1S MOV BRU, TT T I CREPARE NORMAL” SCOPE ROUT INE 
13737 37 003614 MOV Rx’ TTST+2 ‘LOCK NOT SELECTED, SET UP FOR NORMAL SCOPE LOOP 
01 737 10062 O01214 3$ MOV #CYCLE.RETURN START AT *CYCLE™ FIND WHICH DEVICE TO TES 
036737 001236 4S BIT wSHOI, STRTSH iTS TEST NO. SELECTED? 
104402 005756 TYPE MR BY 
000177 175630 S$: IMP ORE TURN :START TESTING 


-Pil 


OS-JAN-78 11:08 





737 
10016 


S888 


Be 
t—-N = 


8888 
aera 
W 
<= 


Nrurmwr 


ee 


SSSSHRSRESE 
tat iietat teepiet. DN Atet ath 


MON £ 


oo 
a 


88 8 8 ke 


007610 


178870 


001214 


PAGE: 
; SE 


sEND OF PASS 
; TYPE OF TEST 
‘UPDATE PASS COUNT 
:CHECK FOR EXIT TO ACT-11 
!RESTART TEST 
.EOP: RESET MAKE THE WORLD CLEAN AGAIN. 
CLR LSTERR ‘CLEAR LAST ERROR PC 
fee Peck ict Are pase COUNT 
mov PASCNT , @DISPLAY DISPLAY PASS _COUNT 
TYPE ESR : YPE EGR 
CNVRT  /XCSR :SHOW IT 
Tye . ay cx : TYPE VECTOR 
TYPE * MPASSX : TYPE PASSES 
CNVRT *xPASS : T 
CNVET VER ‘ oy 2 
MOV MILK, RO iad? pat NTER TO PASS COUNT 
ROY FaRGNT’{RB33_ STORE Enton’ Coli be ris ORCL 
DEC Bae eu PROG COUNT FOR 1 
MOVB Beso" O QV.FLG :SET THE QUICK VERIFY FLAG. 
NOV AprvNun =i RRE CR FOR AACTo1T OR D 
CTRT :IF NOT, C NT INUE TESTING 
a REET Res :STOP THE ONO CLEAR Hie WORLD 
" JSR PC, (R1) 
NOP 
NOP 
NOP 
RESTRT: MOV #CYCLE , RETURN 
MP CYCLE 
XCSR: 1 yt . 2 
orcsh . 
XVEC: 1 
-BYTE 4,2 
DMRVEC 
XPASS: 1 
BYTE 6,2 
PASCNT 
XERR: 1 
YTE 6,2 
ERRCNT 
;SCOPE LOOP AND INTERATION HANDLER 
: : PC,CK WR ;CKECK FOR SOFT SWR 
ore nov Ro’ (S :SAVE RO ON THE STACK 


003eC2 
@ 0032 


BURR T RSC SeSe 


8 


Ob ee 
WONT U £W-OW 


PRESTON TS 


& 


HOS 
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Pll OS-JAN-78 11:08 GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) -  §€@ 0033 
003604 032777 040000 175370 —_ B17 #BITL4, ISWR se 00e ON THIS Test’? ten 
Beis Reb. ee ou Gerd’ og°- HE LSek SHBI=H: TALE LOE 288 
38 034 — BEO ‘oR. IFS LOCK Be on TEST) 
BBirss BRE? oa Bk othe a" da A 
002636 1544 004000 175342 1S: BIT #5W11,aSWR Beugde denatiow (QUICK PASS) 
“5 O7ae 001327 Ts1B gre ree Be GOMPLETED” 
001224 fe LPCNT Be erp f counren, 
003654 023737 001224 001222 cn LPSNT, ICOUNT TARE ALL TERA 
001325 2s: tgs RELG i BE Beh when NEW TEST 
20 37 0012204 cLR LPCNT :START ICOUNTER AT O 
ee fire Gite Bie YEMEN, ei tietezio 
: v THE STACK 
rie a4 - Bosesp FRKE Of arte 
7 13701 001404 MOV DMCSR,R1 IRI CONTAINS BASE DMC ADDRESS 
7 177 175264 IMP MRE TURN :GO DO THE TEST 
7 407 RW: 4497 
37 ° RX: 43 
3734 000000 DONE: 0 
;CHECK FOR FREEZE ON CURRENT DATA 
gov7es OO77 BETBSE vsese “Sl BF EEE BSR GEOR gett 
03756 ee BEd eho . Bs can ot 2ET. 
Boise forage O71220 fs 
? 7 MOV LOCK, (SP) ;GOTO THE ADDRESS IN LOCK. 
Bosves popoos 2220 is: RYT Bo Back 


TYPE: fv -SBLSPSCRS ‘BET ADDRESS OF RESSAGE. 


BS 
we 


003774 062766 g0000e ooo00e as AD0 Be ,2(SP) ame rescnce 
1 1054 010000 175164 BTT #512, ISWR INH ick Titus a + ae 
1 1012 BNE ; { NO PRINT guT WANTED (SW12=1) 
9 1 ? 18: TSTB  —s_ (RS) aR NUMBER MINUS? | (MSB=1 ( (BIT? 
loe777 | {oetga 2s TST aTeCSR TT RE le 
3 [neez? hanes Rove (BS) +, aTPOER PRINT CUR KEEP PRINTING! 


004044 (SP)+,RS :END OF SuTPUT. RESTORE RS 


2 
? 
3 


103. 


PAGE: wort 


CZOMGD.P11 OS-JAN-78 11:08 GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) ~~ SEQ 9034 
837 oo404%—6 oD0002 RTI ;GO HOME 
950 10346 . INSTR: MOV R3,-(SP) ;SAVE R3 ON STACK 
41 1 46 MOV RY’ -(SP) :SAVE RY ON STACK 
4 O1 900004 004072 MOV a4tsP), .MSG 
000004 ROD. #2,5(SP) 


1 . INST1: 
. MSG: 0 


1 7504 MOV #INBUF , R4 
7 MOV #7,R23 
1057 175074 1S: TSTB aTKCSR 
1771 


“N 
tT 


atPEr Ee Et tein 


O74 
tt 
110 100375 BPL 1$ 
lle 1 4 175070 MOV KDBR (R4) 
11 ter is 00 BIC #200, (RY) 
B5¢ i ie se? is CMPB (Ras #15 
Bee i 1 345 175054 2s: iste ayPcsk 
1 33 175044 175046 MOV STKOBR, 3TPOBR 
8s 144 DEC 
1 1 
8s 1 i MOV (SP)+,R4 
860 i On MOV (SP)+,R3 
1 1 4 o00S666 .INSTE: TYPE MQM 
160 010346 MOV R3,-(SP) 
a& 162 010446 MOV RY’ -(SP) 
864 164 741 BR . INSTI 
865 166 12604 INSTRe: MOV (SP)+,R4 ;RESTORE RY 
Bob 170 012603 Vv (5P)+°R3 :RESTORE R3 
56 172 000002 RTI 
Bes ;CONVERT ASCII STRING TO OCTAL 
871 ‘ 
87 74 O10S46 .PARAM: MOV RS,-(SP) 
He 104 v R4’-( SP) 
874 1 v 4(SP), 
875 1 4 MOV (R5)4°L IM 
a 10 Ol MOV (RS)+,HILIM 
e 14 Ol MOV (RS) +, DEVADR 
& il 7 MO (RS)+, OBITS 
3 1 7 MO (RS)+: ADRCN 
MOV ,4¢SP) 
i PARAMI: CLR 
earl 1 007504 Vv #INBUF , RY 
B83 Of 4 000015 CMPB #15, (R4) 
00 14 BE PARERR 
ae 4 000060 1S: APB (RY), #60 
D042S4 45 BLT PARERR 
887 OO 4 000067 CMPB (RY) , 867 
ee8 as 4 14 8 000060 : mm 
Bay BE i 714 ooo01s ig CR) +s 
ee 
892 001406 BEG LimtTs 





JO3 


PAGE : Opssc* 


CZDMGD.P11 OS-JAN-78 11:08 GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) SEQ 003 

893 004300 305 ASL RS 
B34 904306 ASL RS 
9s 4 ASL RS 
896 O04 760 BR 1§ 
g< 431 4404 PARERR: INSTER 
B38 00431 boo7Sc BR PARAM] 
506 ;TEST TO SEE IF NUMBER IS WITHIN LIMITS 
302 ‘ 
803 004314 37 004366 LIMITS: CMP RS,HILIM 

101373 BHI 

. 53 004364 cnr RS,LOLIM 

133708 004372 Ive LOpITS, RS 
208 334 136 BNE ARERR 
319 ;STORE NUMBER AT SPECIFIED ADDRESS 
91 004370 MOV Vv RY 
313 Bouse 1$: MOV Re, oR) 
gis Bo4395 BECB ERr 
316 4 BNE 1 
$1 MOV (SP)+,R4 
918 MOV (5P)+;RS 
919 © ca ons RTI 

i “4 BIC IN: 6 
355 BbI372 Parte: 
oA TeLOBITS+1 





;SAVE PC OF TEST THAT FAILED AND RO-RS 


Rae 


ete orn ttn sie ton 
Sie “ 
004374 016637 000004 001276 .SAVOS: MOV 4(SP) , SAVPC ;SAVE R7 (PC) 
;SAVE RO-RS 
1 00127 SVOS: MOV RS, SAVRS ;SAVE RS 
3 1 7 127 MOV 5 : RY 
Se Riiile lta lees my eve UR 
ge Seiiee G1Ohy Bh my RUevad NE 
se . 

39 $8 RTI , : LEAVE. 

; ;RESTORE RO-RS 
94 34 Ol 1 -RESOS: MOV VRO, RO ; RESTORE 
ce Ga Be Beleee ime aa 
8 450 Ol 1366 v *R tRESTORE R 
g4 454 O1 1g MOV VRY' RG :RESTORE RY 
94g 460 O1 le7e MOV SAVRS; RS :RESTORE RS 













PAGE: 0036C2 
CZDMGD.P11 § OS-JAN-78 11:08 GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) SEQ 0036 
343 oo4Ne4 op0002 RTI ; LEAVE 
$82 ;CONVERT OCTAL NUMBER TO ASCII AND OUTPUT 70 TELEPRINTER 
354 044 o4402 005672 -CONVR: TYPE MCRLF 
S oo44 10046 .CNVRT: MOV RO, -(SP) 
356 OOWN74 010146 MOV R1,-(SP) 
957 004476 01 MOV R3,-(5P) 
328 904500 OI MOV RY) - (SP) 
D04S02 010546 MoV =—- RS. = (SP) 
90 00 5 MOV o1ecsP) Ri 
961 004510 000012 ADD He 12(SP) 
363 Doves 1s Mov CBS S BRENT 
6s 
964 0045 MOVE (RL) ¢° SPACNT 
965 00 MOV a(R1)4+ BINWRD 
366 00 004712 CMPB 83, CHRCN 
36 JUS ie 
368 DOWE 004714 IC #177400, BINWRO 
363 90NE S: MOV BINWROD, RY 
$70 O04SE MOVB  CHRCNT_ RS 
971 OO4SE MOV STEMP, RO 
972 00 3$ MOV RY, Ra 
973 00 BIC #177 79,R3 
974 00 #060,R 
975 OO46I MOVB 3, (RO)+ 
3 DOE CLC 
97 we 2 R RY 
es . 
373 OME ROR RY 
DOME CLC 
OYE € ORS 
se = ~ 
DO46Se 10 1 362 3$ 7 
DOYE MOV A,R 
0046 3 4S: MO wR) tRa)+ 
3a8 00463 , C8 CHRCNT 
Te . 4 
DUE 8 NT 
33 vg OY 
$90 00 SS: neve 0, (R3)+ 
991 Oc DEC SPACAT 
335 boveet 6S eLRe Ra) 
sé 5 e 
$94 00466: TY MDATA 
995 00466 DEC — WROCNT 
336 OC BNE 1s. 
aye MOV (SP)+,RS 
pa DO MOV Cae) S 
1 we HOV SRT 
es 
1 1 OC mov (3P)4°RO 
1 DO ': RTI 
+ als 00006 CNT: 
1004 00471 CHRCNT: 


: 
2 


See 


“I 


538 


OON00ON000 
Setanta 
ONOU CWE 


PERRET ELPA eRe CREAR TER RIS MORTON is 


+ bb be be be bb hb be be be he be be ee bb bh be be 


RR 


LO3 


PAGE; Opncse 
-Pil OS-JAN-78 11:08 GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) SEQ 003 
SPACNT=CHRCNT+1 
BINWRD: O 


fORGUMENT OF TRAP YS ExtRAC 


TR 
obreeres & OFFSEr The OBTAIN. POINTER 


004713 
004714 000000 


a i eee Adee 
io 
539 BOS3i2 177001 TRPOK: | BYE #177001, (SP) IRULTIPLY, TR ANTED Bits. ~ 
BBiae BRSCIE Re BADR COURSE Ag REI cooness 
004746 000136 IMP a(Sp)4+ TO SUBROUTI 
sERROR HANDLER 
: J PC, CKSWR rae FOR aa SWR 
174220 H #Sui2, ISWR Be 
i 
BPL” : “ap ie ay a IF hie NOT READY. 
popeeo t5uisG xex: Bir?  ssuideosuR” ie 
ene BR i tee. 
(SP) ,LSTERR ; WAS TIME? 
ROY (SP) LSTERR iREC 
iREC 
1S: cvs eRart : me "SRE accrsrens 
SUB aor pers a iM TRAP CALL 
HOV (RS), RY ; T ai asin 
80D (RS),R4 ‘Dobe 
; MUL 
a Om 
me feu | fet Be eae 
TSTB RRF GED HEAOREER 
Sf T Bel are TABLE EXIST? 
nn 
TYPMSG: Tee ,MCRLF 
T MCRLF 
arg Lock 
vPE , MASTEK 
1S: TY *MTSTN 
CNVRT  ‘'XTSTN ;SHOW IT 





CZ0MGO.P11 
005140 


1061 


Bao Lo 


SFESES RESTS ot tpi. 


ee ee ee ee ee ee ee ee ee te ee ee ee ee ee he ee ee ee ee he be ee 


Cd ee ed ee ed ee ee een 


THEWW-ODBIER EGO 
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104402 


= 


bo5980 


012737 
012706 





006220 
00887 


ai 


172 


o0S204 


00S2 16 


003S22 
173744 


ooo0de 


001325 


ooco4e 


173716 
173706 
001214 


o000e4 


MO3 


GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) 


PAGE; oe C2 
SEQ 003 


ier fais 
Y * MCR’ IVE A CR/LF 
vB i ERRFLG : RE HEADER UNLESS NO DATA TABLE. 
TST ERRM G iS THERE AN ERROR MESSAGE? 
ee WPKO.FM i a 
ERRMSG rt) ERROR MESSAGE 
; rH DATAHD ; DATA HEADER? 
vf DA o 
TAHD: ge : DATA HEADER 
TYPDAT: TST DATABP DATA TABLE? 
BEG > RESREG ; IF NO. 
RESREG: REsos ;REST STORE PROG REGISTERS 
HALTS: C HSENDAD, ase ‘IF ACT-11 AUTOMATIC MODE, HALT!! 
peo WR ;HALT_ON ERROR? 
ppl EXITER ve al NO HALT ON ERROR 
1S: 5 
Rov 2(SP),RO Reet ERROR PC IN DATA LIGHTS 
i 
OPRO *GET 
EXITER: Tc ERRCNT Dee COUNT 
I r) , aSWR i GOTO 
Bra peices ee Next TEST? 
a HOV NEXT RETURN ; T FOR NEXT TEST 
: v Ri : 
4 en : TO a TEST 
Bs: RTI RETURN 
TABO: 1 
-BYTE 6,2 
SAVPC 
XTSTN: 1 
-BYTE 3,2 
TSTNO 
;ENTER HERE ON POWER FAILURE 
th Al ten cnn laren 
PFAIL: 
UP FOR P UP TRAP 
HALT EST 6 UPN POWER DOWN NORMAL 
;PROCESSOR WILL TRAP HERE WHEN POWER IS RESTORED 
RESTAR: 
MOV #.PFAIL,24 ;SET FOR POWER FAILURE 
MOV #STACK, SP :RESET THE STACK POINTER 


N 
g 
sa 8 


Vel hs) 


ee se ee ee ee ee ee ee ee ee ee ee ee ee ee he ee ee ee 


ODO VEE HOW VON LU OD VET Ew Ob VON Lene Oubee NO Looe 


= +o bbb OB Bb 0 0 bb 0 Bb 0 Bb Pb 8 2 0 bb br 2 Bb 0 0b bb bb 0 bb 0 0 bb br 8 0 0 0 


NO3 
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Pil OS-JAN-78 11:08 GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) Seq 0039 
001404 MOV onc ,R1 ;RESTORE R1 
?READY FOR TIMMER 
ait e Geog ven 
Y * MPFAIL ‘Ty; 
838 CNVRT DE TAG i LL Me le TO RETURN TO. 
i es eee ESRERe STBRT. Cue 
CLR (R1) tc EAR MAINT BITS 
MSTCLR se TAR LEAN AN UP OF DEVICE 
173564 mies IMP @RE TURN TART HAT TEST AGAIN. 
BYTE. 3 
= af 
3e oocozn 173746 rN nay #20, 30MPO4 
K ; ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
ie aor SELE EGBA BEBE SY 
- ROMCLK ;NEXT ORD IS INSTRUCTION, ROMCLK PC=5304 
o00020 173730 a #B1T4, DMPO id CLOCK BIT SET? 
y 
466 .MSTCLR: 
T SRH R 
u7 eeetee 1333 § Bice sBT Te apy omc Hocker Masten CLEAR AND RUN 
.ROMCLK: 
T ; 
a: i Me ae —— IN see 
se, - 5 
1 173452 a #SHO6 , OSHA Ha YI ele 
HALT sith F = OCKING INSTRUCTION 


aera 133e3e - Bice eat 13 BITO goncsay SOMeSRH K ateaR RO , ROMI, STEP 


" . (SP)+, TEMP ;PUT TICK COUNT IN TEMP 
; : -(SP) tO +, ST ACK 
173616 1S: B tT4, JOMC : TE U 
17360 c sAiponeen | iuRSTE TT 
Ge 17 cB rene” iC RS EP Lu 
. l ;BR IF NOT BONE 
T ; RETURN 
3S: BLKW 1 
TIMER: 
MOV 





P ‘ (SP)+, TEMP sMOVE COUNT TO TEMP 
pSa0ds ADD oon (SP) , j ADJUST STACK 


be be ee pe Be pe Be fe Be Be Be Be ee 


FF FEE AAA AA AAA ALAA AAA ALAA AA AAA OOOO OOO LO Pe he bh be be be be be pe 
BULNNUVUUUVUVUUUUUUUUUUUUUUVUUULUUUVUUUUUR Dae ROB IIIT 


= 
oo 
wo 


BO4 
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-Pll OS-JAN-78 11:08 GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) deo BONO 
00S626 1S: 
ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
0056. 1 021364 ;PORT4Y+IBUS* REG1I1 
00S6& 173552 BIT #2, JDMPO4Y ;1S PGM CLOCK BIT CLEAR? 
iee - BEQ 1s ;BR IF YES 
4, ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
44 021364 ;PORTY*+IBUS# REG11 
46 173536 BIT #2, JDMPOY ;1S PGM CLOCK BIT SET? 
a BNE es ;BR IF YES 
DEC TEMP ;DEC COUNT 
Bhs 1s ;BR_ IF NOT DONE 
4 TI ; RETURN 
Doses MQM: -ASCIZ 7 7% 
e MCRLF: .ASCIZ <15><12> 
p0se73 pe lss MPFAIL: PORES (377>/PWR FAILED. RESTART AT TEST / 
00S 377 01 MEPASS: .ASCIZ <377>/7END PASS CZDMGD / 
005756 MR: 9303 <377> /R/ 
005761 377 04751 2040 MERRe: .ASCIZ <‘377>/NO0 ICES PRESENT. / 
044777 051516 3125 MERR3: .ASCIZ <377>/INSUFFICIENT DATA!/ 
Netra tte Baear? 1 124 MTSTPC: .ASCI yf a hay ST PC-7 
O44 77 1 i 3 : .ASCIZ <377>/LOCK ON SELECTED TEST/ 
006073 103 1123 SRX: .ASCI /CSR: / 
pee toy iss 1 MVECX: ke /VEC: 7 
0061 1 MPASSX: .ASC SES: / 
0061e0 051105 1 renex -ASCIZ /ERRORS: / 
606131 124 1 0201 STN: .ASCIZ /TEST NO: 7 
006143 B95 MASTEK: .ASCIZ 7%/ 
006145 3 020 Ws -ASCI $977) /SET SWITCH REG TO OMC11’S DESIRED ACTIVE. / 
poesey 041520 7 MERRPC: .ASCIZ /PC: / 
O0be el XHEAD: .ASC <212>7 MAP OF DMC11 STATUS/ 
006264 Bak ' (Q70)/ = _ewwm wwe nooonsnnna—= / 
0063e3 el 1 - ASC <2l2>7 PC CSR STATI STAT2 STAT3/ 
006.375 455 O264SS TASCIZ (377) /a-----  wennn eee rena / 
006451 377 1 127 NUM: -ASCIZ <377>/HOW MANY DMC11’°S TO BE TESTED?/ 
006511 377 1 lee CSR: -ASCIZ <377>/CSR S$?/ 
3 103. VEC: -ASCIZ ¢377>/VECT RESS?/ 
006550 041377 01 1120 Id; -ASCIZ <377>/BR PRIORITY LEVEL? (4,5,6,7)?7 
7 OWS1IL O4e0KG CRAM: = .Aact (377) 7TF ONC Has Cran, | 204) TYPE “y", IF _CROM (M8200) TYPE “N™ ?/ 
006 377 1 1S11 MODU: - ASC <377>/WHICH LI UNIT? IF NONE TYPE “N”, IF M8201 TYPE “1”, IF M8202 TYP 
007017 377 053523 111 LINE: Paks <377>/SWITCH PAC#1 (DDOCMP LI 2/ 
007055 377 0S3523 111 BM: -ASCIZ <377>/SWITCH PAC#e (BM873 BOOT ADD)?/ 
porte 377 Bolatt BS CONN: -ASCIZ <377>/7IS THE LOOP BACK CONNECTOR ON?/ 
00715 377 £218 NOACT: .ASCIZ <377>/NO DEVICES ARE SELECTED/ 
007206 005377 OS 36S22 SWMES: .ASCIZ ‘377><12>/SWR= / 
007216 OIsS1§ te 2 Si: Baki s “Ney? / 
007224 1777 6 RR: .ASCI <377><377>/7DMC11 FOUND AT NON-STANDARD ADDRESS PC: / 
007300 042777 OSO1 1 CNERR: .ASCIZ <377>/EXPECTED FOUND/ 
007321 O40 O420S0 O4151S DMC: -ASCIZ 7 (DMC) 7 
007331 O40 O454S0 O4151S KMCM: -ASCIZ 7 _(KMC) / 
007341 povitee O046S04 030503 a ASCIZ <377>/DMCLI-AR(REMOTE,LOW SPEED) OR DMC11-AL(LOCAL,HIGH SPEED) TYPE “R” 
0074S6 000005 XSTATQ: S 
007460 006 003 -BYTE 6,3 
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006 
001250 
001 
001254 

006 
001256 


0S030e 


003 


000176 
171360 


177777 
000007 


000207 


177777 
177777 
007206 
7el 
Br o0e8 
000015 
000012 


oo00es 
000007 


177770 


001202 


003734 
171344 


171334 


010020 


CO4 


GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) 


eee 


.BYTE 6,3 
EVE 6,3 
+Pne5 . 
-BYTE 6,3 
TEMPS 
.BYTE 6,2 
TEMPS 
EVEN 
;BUFFERS FOR INPUT-OUTPUT 
INBUF: 0 
=. +40 
MDATA: O 
=. +4 
; ROUTINE USED TO CHANGE SOFTWARE SWITCH 
REG TER USING THE CONSOLE TERMINAL 
CKSWR: one HSUREG, SUR HE SOFT SWR BEING USED? 
ore oreCSR 
BP. i a “ROT § 
MOV #-1, DONE IF SET LAG 
2s: cn #7, STKDBR iihSoe * $6 "EyBED? (7 BIT ASCII) 
CMP 1307 3TKDBR WAS CTRL G TYPED? (8 BIT ASCII) 
B CKSWRS : F 
1S: MOV Re, -( P) 3ST 
MOV R3,-(5P) STORE 
MOV RY, -( SP) 
MOV #-1,SWFLG ape TY nee T FLAG 
CKSWR1: CLR Re C NTENTS 
MOV #-1,R4 ET FLAG TO AL 
TYPE , SWHES 
CKSWR2: CNVRT ity QUT PRESENT CONTENTS 
SOF TSW ;0F SOFT SWITCH REGISTER 
CKSWR3: TYPE WMES 1 :TYPE 
EKSWR4: JSR PC, INCHAR :GET RE ONSE 
CMP #15,R3 :WAS IT A CR? 
BEQ S$ :BR IF_Y 
CMP #12,R3 ‘WAS IT ALF? 
BEQ 4§ ;BR IF _YES 
CMP #25,R3 :WAS IT CTRL_U? 
BEQ CKSUR1 :BR IF_YES(START OVER) 
CMP 7,.R3 :IF CNTL G GET NEXT CHAR 
BEQ cKSWRY 
CLR ;IT MUST 7BE A DIGIT SO CLR FLAG 
BIC B77770 R3 :ONLY O-7 ARE LEGAL 50 MASK OFF BITS 
ASL Re :SHIFT Re 3 TIMES 
ASL Re 
ASL Re 
BIS R3,R2 ;ADD LAST DIGIT 


eo Bos” 
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CZDMGD.P11 OS-JAN-78 11:08 GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) see 8585" 

124% 007764 000752 BR CKSWRY ;GET NEXT CHARACTER 

1247 0077 7 oo2002 oo00006 4$: MOV #. START, 6(SP) 15 Pac ere BaF GO TO START 

1 48 0077 7 S$: TST RY 5 

1 51 0008 : 7117 BOY Bs aSWR ee SOO A CONTENTS TO SOFT SWR 

1882 61 Bos63/ 474428 6S: CL Sree HIF YES TYBEOUT FLAG 

1 10 012604 MOV (SP>+,R4 tRESTORE R 

1253 10012 012603 MOV (SP)+,R3 RESTORE Ra - 

1254 010014 Ole66e MOV (SP)+'Re ?RESTORE Re 

1295 010016 000207 CKSWRS: RTS PC : RETURN 

1357 010020 oo0000 SWFLG: O 

1 19982 105777 171156 INCHAR: TSTB aTKCSR 

l 100375 BPL 

1261 017703 171152 MOV STKOBR, R3 

1262 105777 i71150 TSTB aTPCSR’ 

1263 09 2s BPL -4 

1264 1037 17414 Mov R3, JTPOBR 

1265 42703 6000200 BIC #BtT7,R3 

1266 000207 RTS PC 

1268 000001 SOFTSW: 1 

1263 006 002 .BYT 6.2 

1270 000176 SWREG 
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Pll OS-JAN-78 11:08 GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) Se 
tROUTINE USED TC “CYCLE” THROUGH UP TO 16 DMC11’S 
; THIS ROUTINE SETS UP THE CONTROL ADDRESS FOR THE DIAGNOSTIC 
AND RUNS SPECIFIED OMC11’S. THIS ROUTINE *MUST# 
!BE RUN FIRST BEFORE ENTERING THE DIAGNOSTIC FOR THE 
:SETUP NECESSARY. 
010062 005737 001306 CYCLE: TST DMACTV ;ARE ANY DMC11’S TO BE TESTED? : 
010066 10 $ ‘BR IF OK. 
010070 104402 007155 TYP , NOACT :NO DMC11°S SELECTED!! 
010074 HAL :STOP THE SHOW. 
010076 000776 BR .-2 :DISQUALIFY CONT. SW. 
910109 1S: CLC ‘CLEAR PROC. CARRY BIT. 
0101 006137 001316 ROL RUN ‘UPDATE POINTER 
9101 005537 001316 ADC UN "CATCH CARRY FROM RUN 
10112 062737 000004 001322 ADD #4, MILK ;UPDATE POINTE 
6101 737 900019 001320 ADD #10, CREAM ‘UPDATE ADDRESS POINTER 
1016 2737 0017 001320 CMP #0M: MAP+200, CREAM 
0101 1006 BNE 2 ;KEEP GOING: NOT ALL TESTED FOR. 
010136 0127 001500 001320 MOV #OM.MAP,CREAM RESET ADDRESS POINTER. 
o10144 018737 001702 001322 MOV SCNT. MAP, MILK jRESET PASS COUNT POINTER 
10152 7 001316 001306 2s: BIT RUN, OMACTV *IS THIS ONE ACTIVE? 
010160 001747 BEQ 1$ ;BR_IF NO 
0101 1 901329 MOV CREAM, RO :GET ADDRESS POINTER 
101 137 1322 MOV MILK, Re :GET PASS COUNT POINTER 
010172 Ol 001404 MOV (RO)+, OMCSR iL SYSTEM CTRL. REG 
Bipsos Bees? pessod 001374 Bre (RO) af bhkvec FECERR NWANTED BITS 
eat pS039 001366 MOV thos s Start * LOAD STATI 
010214 012037 001370 MOV (RO)+;STAT2 ?LOAD STATe 
0102 012037 90137e MOV (RO}+, TAT3 *LOAD STATS 
102 lee 1230 MOV (R2)+; PASCNT :LOAD PASS COUNT 
102 012237 001232 MOV (Re)+; ERRCNT *LOAD ERR OUNT 
10234 me 700 MOV #2,R :SAVE CORE THIS WAY! 
i 40 1 237 1404 001406 nov DMCSR, DMCSRH 
1des¢ 013737 1406 001410 MOV OMCSRH, DMCTL 
01 005237 001410 INC DMCTL 
010264 013737 001410 oo1412 MOV OMCTL , DMPO4 
Bisere Bie BRITE cows roy Bei Brno 
01 be8037 001414 ADD RO, DMPOG 
010310 013737 001374 001376 MOV DMRVEC,DMRLVL ;PTY LVL 
1 18 7 001376 ADD RO, OMRLVL ; 
1 13737 1376 001400 MOV DMRLVL,OMTVEC ;TX VEC 
10330 37 001400 ADD RO, OMTVEC : 
010334 013737 001400 o01402 MOV DMTVEC,OMTLVL ;TX LYL 
010342 0037 001402 ADD RO, OMTLVL 
01034 032737 o00002 001236 BIT #SWO1,STRTSW ;1S TEST NO. SELECTED 
010354 001450 “= BEQ 7§ :BR IF NO 
010356 005737 oo0042 TST ase ;RUNNING IN AUTO MODE? 
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OS-JAN-78 11:08 GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) seq 9044 
001045 BNE 7$ ;BR IF YES 
1044 005672 TYPE , MCRLF 
104403 INSTR ;GET TEST NC. 
006131 MTSTN 
booont _— 
001000 1000 
001226 TSTNO 
900 .BYTE 0O 
1 ‘BYTE 1 
912700 022324 MOV #TST1,RO 
2710 S$: CMP (PC)+; (RO) ;CMP FIRST WORD TO 12737 
012737 MOV (PC) +; a(PC)+ 
Oot BNE % elf NOT SANE 
Ge3760 001226 oo000e che STNO, 2(RO) a TNO MATCH? 
022760 o01226 o00004 CMP #TSTNO, 4(RO) ie LAST © NORD OK? 
00 019 BNE :BR IF 
01 001214 MOV RO, RETURN :IT IS , LEGAL TEST SO DO IT 
1044Ge 005756 TYPE 
one? 32 000002 001236 BIC bSWO1, STRTSH 
0057 9 6S: TST (RO)+ ;POP_RO 
026474 CMP RO, #TLAST+10 :AT END YET? 
001351 BNE $ :BR NO 
104402 o0S5666 TYPE MOM YES ILLEGAL TEST NO. 
000730 BR 4g : TRY AGAIN 
012737 022324 001214 73: MOV #TST1, RETURN ;PREPARE RETURN ADDRESS 
013701 OO1404 8s: MOV DMCSR‘R1 ?R1 = BASE DMC11 ADDRESS 
000177 170500 IMP MRE TURN !GO START TESTING. 
; ROUTINE USED To “AUTO SIZE” THE DMC11 
*CSR AND VECT 
:NOTE: THE Cc ANY WHERE IN THE FLOATING 
: RE Ss RAN (10000: 164000) 
: AND THE VECTOR MAY BE ANY WHERE IN THE 
: FLOATING VECTOR RANGE (300:770) 
AUTO. SIZE: 
ooo00s RESET ; INSURE A BUS INIT. 
0i2702 001500 CSRMAP: MOV 80M. MAP, R2 ‘LOAD MAP POINTER. 
o0sS022 18: CLR (R2)+ :2ERO ENTIRE MAP 
2702 001700 CMP #OM.END, R2 TALL DBNE? 
4377 001310 ait banun eee NUMBER OF OMCLL'S TO 0 
12 be Bo t2h5 MOV 80M. MAP, Re Re POINTS + TO DMC M 
005037 001306 CLR DMACTY :CLEAR ACTIVE 
032737 000001 001236 BIT #00, , STRTSW ; QUESTIONS? 
000137 011254 IMP 7$ :IF NO SKIP GUEST IONS 
012737 000001 ool1es6 MOV #1, TEMPS :START WITH 
104403 INSTR 
006451 NUM 
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OS-JAN-78 11:08 GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) SEQ o04S 
PARAM 
* 
TEMP 
.BYT 0 
‘BYTE 1 
001252 001310 MOV TEMF 3, DMNUM ;DMNUM = HOW MANY 
005672 12$: YPE , MCRLF 
CONVRT ; TYPE WHICH DMC IS BEING DONE 
ICH :TEMPS IS WHICH DMC 
001256 INC TEMPS 
INSTR 
SR 
ARAM 
160000 
164000 
TEMPY 
.BYTE O 
‘BYTE 1 
001254 MOV TEMPY, (R2)+ ;STORE CSR IN MAP 
INSTR 
VEC 
PARAM 
776 
TEMPY 
ae 
001254 MOV TEMPY, (R2) ;STORE VECTOR IN MAP 
10$: TYPE 
PRIO ;ASK WHAT BR LEVEL 
912870 JSR PC, INTTY ?GET RESPONSE 
24 CMP #24,R3 ; 
BHI Sos :BR IF LESS THAN 4 
000027 CMP #27,R3 ; 
BLO Sos :BR IF GREATER THAN 7 
000011 MOV #11,R4 ?RY = ER OF SHIFTS 
ASL R3 : HIFT 3 T 
DEC RY :DEC SHIFT COUNT 
BNE 4 :BR IF 
170777 BIC #170777,R3 ;BIC NHANTED BITS 
R3, (Re) :PUT LEVEL IN STATUS MAP 
BR 8g : CONTINUE 
= Mine RESP IS OUT OF LIMITS 
Ba 10$ iREY aeaEN 
8$: TYPE 
CRAM ;DOES pic HAVE CRAM? 
012270 ISR PC, INTTY ‘GET REPLY 
000131 CMP #131,R3 
BEQ $ ;YES 
000116 CMP #116,R3 NO 
BEQ 40$ :NOT A Y OR N 
TYPE 
MQM 3 TYP ee oe 
BR 8s :ASK AGAIN 
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OS-JAN-78 11:08 GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) SEQ OO4E 
40$: TYP 
aa 012270 7 SCR. PCL INTTY elo 
004737 01 : 
? 000122 CMP #122,R3 ‘IS ITR 
Tay BEQ 16$ :BR IF REMOTE 
? : 000114 CMP #114,R3 IS ITL 
140 BEG 41§ :BR IF LOCAL 
TYPE 
MQM 
BR 40S ;TRY AGAIN 
000002 ooo004 41S: BIS WBIT1,4(R2) ET BIT IN STAT3 
7le 100000 98; Bis. #BIT1S, (Re) :SET BYE Is IF CRAM 
, 3oe ; MODU ; ASK WHICH LINE UNIT 
7 012270 Js PC, INTTY :GET REPLY 
022703 000021 CMP #21,R3 ,71° 
1417 BEQ 30$ —. 
o00022 CMP wee, R3 :"2 
ree BEQ 31 ge 
? 000116 CMP #116,R3 ;"°N 
001403 BEQ. 328 
Q MQM ;IF NOTA 1,2 OR N TYPE “?" 
po00 2$ Bt 1eS cree ESET Bit 12 IN STAT2 IF_NO LU 
038288 a aaa ene the), tRe)+ : B5P BIER Te AND STAT3 
4 
ies o20000 31$: BIS. #BIT13, (Re) :SET BIT 13 IN STAT2 IF MB202 
side "CONN ;ASK IF LOOP-BACK IS ON 
737 912270 ISR PC, INTTY :GET REPLY 
2703 000131 CMP #131,R3 iY 
39 000116 aid tie R3 3N 
touubs fae SS | 
MQM TE NOT Y OR N TYPE "?" 
ita BR 30$ : TRY AGAIN 
Beeb 040000 178: By ' IT14, (R2)+ : TURNAROUND IS CONNECTED 
7 040000 18s: IC #BIT14, (R2)+ ;NO TURNAROUND 
104403 ‘ INSTR 
7017 LINE 
405 PARAM 
377 
1254 TEMPY 
zo! ae 
143788 001254 Hoy “ teMPY. (RE)+ ;STORE SWITCH PAC IN MAP 
007055 BM 
104405 PARAM 
000000 Ns) 
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SEQ 0047 
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-JAN-78 11:08 GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) SEQ 04S 
12761 000100 oo0004 MOV #BIT6,4(R1) ;LOAD PORTY 
Berek ita —_ Bre tafe cen LORD INSTRUCTION set DTR) 
4 Vv Hate 6(R1 *LOAD INSTRUCTION 
pi53et 5600 aneted BIS #B1TS, (R1) * CLOCK INSTRUCTION(READ MODEM REG) 
Sarcph 800010 como BREESE eho ole ro 
e718 040000 an BIS WBITIY, (R2) SET status BIT FOR CONNECTOR 
000 . MOV % (R1) PUT INSTRUCTION IN PORT6 
ise BS 1450 = MOV sertaiatts (R1) ;PORTHeLU 15 
156122 O00004 BISB 4(R1), (R2)+ :ST MP LINE # IN TABLE 
O1 aa 1344 o00006 MOV adel 34 6(R1)  ;PORT6+INSTRUCTION 
1855 1400 MOV #B1TB!BITS,(R1) ;CLOCK INSTR. 
ie Fife ayy ese eae eee gag? mH Tae 
I Che ShAUM iGppATE DEVICE COUNTER 
34 001310 CMP #20, OMNUM NO. OF DEV FOUND? 
x: SEeeROaL 18" FOR AY Powe: 
{ , CLR 6(R1) :CLEAR SEL 6 
! 14S: ADD #1D,R1 a :UPDATE CSR POINTER ADDRESS 
a ees 
13S: CLR DMACTV 
T ;WERE ANY_DMC11’S FOUND AT ALL? 
Bed 5s = i EEROR AUTO SIZER FOUND NO OMC11°S IN THIS SYS. 
“ nov R1, SAYNUM ;SAVE NUMBER OF DEVICES 
x ROL DMACTV ; GENERATE ACTIVE REGISTER OF DEVICES. 
INC OMACTV :SET THE BIT 
BOY se. 904 OR TE Ot ap vEETOR 
MOV DMACTV, SAVACT ; SAVE ACTIVE REG STER 
IMP VECMAP :G0 FI CTOR NOW. 
Ss: TYPE MERR2 :NOTIFY OPR THAT NO DMC11’S FOUND. 
CLR. RO ; MAKE ara LIGHTS ZERO 
eat 6 Bay #148, (SP) sDisaeLs CONT. SW a TIME-OUT 
pagans mene - RTI , BET TURN TO MAINSTREAM 
1 ni WHICH: —_ ae 
001 TEMPS ’ 
He 000001 001236 VECMAP: BIT #SWOO, STRTSW 
12737 000340 ggagee MOV #340, a822 ;SET I0T TRAP PRIO TO 7 
fee boisog ee i iC ae set £Ot Thee Werte 
012700 000300 MOV #300, RO ‘FLOATING VECTORS START HERE. 
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OS-JAN-78 11:08 GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) SEQ 0049 
000302 MOV #302,R1 ;PC OF IOT INSTR. 
1$: MOV Ri, (RO)+ :START FILLING VECTOR AREA 
000004 MOV #4, (R1)+ ;WITH .+2; IOT 
CMP (RO)+, (RL)+ :ADD 2 TO’RO +R1 
001000 CMP Ri, #1000 
BLOS 1 ;BR IF MORE TO FILL 
001306 001246 MOV OMACTV, TEMP ‘STORE TEMPORALLY 
001246 2s: ROR EMPL :BRING OUT A BIT 
BCC S$ ‘BR IF ALL DONE 
900012 MOV aie RY RY “S INDEX REGISTER 
12254 177776 MOV LYL(RY),PS :SET PS TO 7 
MOV (Re), R1 
0200 oo0004 MOV #200'4(R1) 
10600 MOV #BIT9, (R1) ; 
teil oo00006 MOV #l21i11,6(R1)  ;PUT INSTR TION IN PORTE 
1400 MOV sBITS'BtTS,(R1) ; AN INTERRUPT 
7S: INCB RO >STALL 
BNE .-2 :FOR TIME TO INTERUPT 
ooo0002 SUB #2,R4 :GET NEXT LOWEST LEVEL 
BEQ 6% :BR IF RY =O 
012254 177776 MoV BRLVL(R4Y),PS 5 HO NEXT LOWER LEVEL IN PS 
005300 oo00ce 6é$: BIS #5300, 2(R2) :NO_INTERUPT ASSUME 300 AT LEVEL 5S AND FIX DMC11 LATER 
33: CLR (R1) >CLEAR ROMI 
000010 ADD $10,Re i POP SOF THARE POINTER 
BR > KEEP ING 
ooooo2 4$: BIS (SP) ,2(R2) :GET VECTOR ADDRESS 
7? go000e BIC #7, 2tRe) :CLEAR_JUNK 
122 MOV BRLVL4+2(R4),RS ; BR LEVEL OF DMC11 
ASL RS ?SHIFT L VEL 4 PLACES 
ASL RS :TO THE : T FOR THE 
RSL RS : STATUS E 
170777 BIC #170777,RS ;CLEAR UNWANTED BITS 
be oo00002 BIS RS,2(R :PUT BR LEVEL IN STATUS TABLE 
Deebeb CMP (SP)+. (SP)+ : POP 19T JUNK OFF STACK 
12716 012174 mov #3$, (SP) ?SET FOR RETURN 
S$: RTS PC ;ALL DONE WITH “AUTO SIZING” 
BRLVL: 0O ;LEVEL O 
0 ;LEVEL O 
200 ;LEVEL 4 
240 :LEVEL S 
300 :LEVEL 6 
340 ;LEVEL 7 
105777 166710 INTTY: TSTB aTKCSR ;WAIT FOR DONE 
100375 BPL <4 
017703 166704 MOV JTKDBR, R3 ;PUT_CHAR_IN R3 
1 aoe 166702 iste STPCSR :WAIT UNTIL PRINTER IS READY 
010377 166676 MOV R3, ITPDBR ;ECHO CHAR 
042703 o00240 BIC wetT7!BITS,R3  ;MASK OFF LOWER CASE 
000207 RTS PC RETURN 
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CZOMGD.P11 OS-JAN-78 11:08 GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) Gee Bees 
i 
ieee Gle3ee ooo0000 ROMMAP: O ;POINTER TO HI OR LO SPEED MICRO-CODE 


i666 
1667 012324 LOMAP: ;LOW SPEED (REMOTE) MICRO-CODE 
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1408 BERED MESSA 
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1435 
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1630 --ROUTINE TO SEND AN ACK 

1679 REP HAND 

1734 NXMERR ---NON EXISTANT MEMORY HANDLER 
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“UT E OMC-11 MICROPROCESSOR INSTRUCTIONS 
TTL MACRO DEFINITI 


SBTTL REVISION OO 


-SBTTL FE es, 1975 
"SBTTL 
-SBTTL REVISION O1 


SBTTL Ses 8,197S 


-SBTTL NEW BOARD CHANGES 
“SBTTL HARVEY M. SCHLESINGER 
"SBTTL COPYRIGHT 1975 DIGITAL EQUIPMENT CORPORATION 


003400 


COS 


COPYRIGHT 1975 DIGITAL EQUIPMENT CORPORATION 


NEW-2 
novEso ; MICROPROCESSOR INSTRUCTION. WORD DEFINITIONS 
JUMP= 100000 ;OPCODE JUMP 
Thn=0 iSourcve fhneorare 
SE BDO i SOURCE a 
BR=60000 ‘SOURCE BR 
DP=60000 ; SOURCE BR 
ries ESRC Ran 
uRfeeR=400 : Bes TRY BR 
WROUTX=1000 ‘DEST-EXTENDED IBUS 
SH TBR=1400 ; DEST-SHIFT tht F 

if ‘Beer-taHy 


0000 
4000 


BRYCON=3000 
BR7CON=3400 


NCTIONS 
000 


; SUB 

;FUNCTION- TWOS COMPLEMENT SUBTRACT 
;ADD A+B 

;A+B+CARRY 

; INCREMENT A 
;A PLUS CARRY 

3A pie A 

;A_PLUS A PLUS C 
;DECREMENT A 


;CONDITION C 
;CONDITION 2 
foe att 
;CONDITION BRO 
;CONDITION BR1 
;CONDITION BRY 
;CONDITION BR7 
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26-OCT-77 13:33 


100000 


000000 


MICRO INSTRUCTION DEFINITIONS 


rh MICRO INSTRUCTION DEFINITIONS 
. SBTTL BRANCH INSTRUCTIONS 


Sump= 100000 ; JUMP OP CODE 

' SBTTL INDEXED BRANCH INSTRUCTIONS 
-SBTTL MOVE INSTRUCTIONS 

MOVE=0 ;MOVE OPCODE 


Peete te Te ee er ee te re ree 7) 


———$—$—$ tT LT 
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OMCNEW.MAC 26-OCT-77 13:33 INPUT/OUTPUT ASSIGNMENTS SEQ OOS 

258 .SBTTL INPUT/OUTPUT ASSIGNMENTS 
259 -T ASSIGNMENTS 
260 100000 tNCON=0+1 IN CONTROL CSR 
Se 1p8540 BCON=abs1 OT NCOMTROL Cee 
263 100060 UBADD veaet i ONUSED 
264 100100 PORT 1=100+1G000 :CSR4 
26S 100120 PORT2=120+ 100000 CSRS 
266 100140 PORT3=140+ 100000 : CSRS 
267 100160 PORT4=160+4 100000 : CSR? 
268 100200 NPR=200+1 !NPR CONTROL 
269 100220 UBBR=220+ 100000 : BR( INTERRUPT ) CONTROL 
eo RR kate TSH Beta fe Porte 
272 000140 octets ‘OUTPUT BA LOW BYTE 
273 000160 IOBA2=160 :OUTPUT BA HIGH BYTE 
274 000100 IIBA1=100 ‘INPUT BA LOW BYTE 
en 2 beer 8, ee aa 
277 000220 TMTCON=220 !TMTR CONTROL 
278 O24 RCVCON=240 CYR CONTROL 
520 500560 OVNRE GS SO SYR REGISTER. 
ee! 900320 LNOSH=3 LINE NUMBER SWITCH 
283 000360 PURA N=360 sone £3 RTT tia ENTAINENCE 
ce 1 le 
eae 999900 SINCON=O ; IN CONTROL CSR 
586 500003 QOcOn=e FIT SGMTROL. COR 
290 0004 OPORT i= ?CSR4 
291 000005 OPORT2= : CSRS 
292 000006 OPORT3= : 
o3q 600010 ONDRe IO 'NPR CONTROL 
295 000011 OBR=1 !BR CONTROL 
296 UNEXTENDED OBUS 
297 oo0000 SINDATI=0 ; OUTPUT 
298 ooo0002 OUTDAL=2 !QUTPUT DATA LOW BYTE 
299 000003 OUTDAZ=3 :OUTPUT DATA HIGH BYTE 
300 0006 OBAi= :OUTPUT BA LOW BYTE 
301 000007 Az= ‘OUTPUT BA HIGH BYTE 
305 SoODoe ipae=s tTNPUT BA HICH BYTE 
304 000010 TMTDAT=10 !TMTR DAT 
305 000011 OTMTCO=11 !TMTR CONTR 
306 000012 ORCVCO=12 'RCVR CONTROL 
307 000013 OMODEM=13 ‘MODEM CONTROL 

900014 SYNC=14 !SYN REGISTER 
3093 000017 OLUMAN=17 !LINE UNIT MAINT. 
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311 -SBTTL PROTOCOL DEPENDANT MACROS 
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350 

seh 177777 MICPC=177777 ; INIT MICRO PC 
ro 
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‘ DMC11 DDCMP MICRO CODE ASSEMBLED FOR USE WITH THE M8201 LINE UNIT 


LOW=0 
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@ ooss 


DMCGAL . MAC 


18-JAN-78 16:05 


HOS” 


DMC11 DDCMP MICRO CODE ASSEMBLED FOR USE WITH THE M8201 LINE UNIT 


- ABS 
-LIST ME 


ee ee ee ee ee re ee re re ie 7) 


. TITLE DMC11 DOCMP PROTOCOL IMPLEMENTATION 


COPYRIGHT (C) 1977 
DIGITAL EQUIPMENT COMPORATION, MAYNARD, MASS. 


SHRGLE COMPUTER SYSTER ARO MAY “BE COPIED ONLY. ITH THE 


Leva Forte ABOVE COPYRIGHT” ra i Me) S OR OTHERWISE 


Tigh nec Po earn ae eee WHE ae 
SFR I VEEN GH BREEDING BEAL 


PMENT CORPORA 


maz 2038 


SSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF 
OFTWARE ON EQUIPMENT WHICH 1S NOT SUPPLIED BY DEC. 


“SEIT VERSION OOA FEBRUARY 26, i975 
geist HARVEY M. SCHLESINGER 


- SBTTL 
-SBTTL VERSION OOB MARCH 17,1975 
“Barr CSR AND MICROPROCESSOR CHANGES 


:SBTTL VERSION OOC NOVEMBER 6, 1975 
“SBTTL RETRANSMISSION CHANGES 


- SBTT 
-SBTTL VERSION OOD DECEMBER 3,1975 
-SBTTL TRANSMIT DONE CHANGES 


. T 
SBTTL RSION O18 6-MA 


ree tea 8088 


:SBTTL ACKNOWLEDGEMENT CHANCES - ACK A MESSAGE EVEN IF NO DATA TO RETURN 


‘SBTTL VERSION O18 01-DEC-77 


‘EBTTL MANY CHANGES 
“SBTTL THE LATEST MODIFICATIONS WERE ADDED ON: 
, 01-DEC-77 
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ee 


Be 
RECUR RERO SHC R IS 


88888888 
O0O00000 
ee ee 


s{=t={=}=]=} 
600000 


MICROPROCESSOR MAIN MEMORY ASSIGNMENTS 


105 


-SBTTL _MICROPROCE MAIN MEMORY ASSIGNMENTS 
CROPROCESSOR AAI 


;ALLOCATION OF MIC 
NAK 


“nN 
" 


BSooo on 
saaeaaes 


Son Leen Lame Lamn am Loman Lae) O2) 
Om — 


<=z 
—-OPctCM-ON 


N++++o4+ 


ms 
= 


TYPSTT=TYPTAB+2 ; 


: -MSG NO BUFFERS CUMUL. 
: NAKS- HEADER BAD 
;NAKS-DATA BAD 

‘NAK SENT --NO BUFFERS 
;NAK SEN HE ADE 


;NAK SENT DATA 


;CORE TABLE BASE ADDRESS 

;START OF INPUT CHAIN--NEXT RECV DONE 
;END OF INPUT CHAIN 

;RECEIVE LINK #1 

e- a ag 


;START OF OUTPUT CHAIN---NEXT TMT DONE 
;END OF TRANSMIT CHAIN 
; TRANSMIT LINK 


zw 
F tats 
mp 


ane 
RRA 


23 3< 


v4 
m 
=" 


NN 
uw 


NN SRR 
wr SEE 


i RECEIVE gyTe COUNT 
;SPi1 IMAGE 

:SP1l2 IMAGE 

;IN CONTROL CSR IMAGE 
:RECVY THRESHOLD LINK 
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MICROPROCESSOR MAIN MEMORY ASSIGNMENTS 
;ALL LOCATIONS FROM 200 ON ARE NOT WRITTEN OUT DURING A TABLE UPDATE 


TABST=210 ; TABLE UPDATE STATE 
PRIST=TABST+1 ;PORT STATE 

NXTINT=240O ;NEXT INTERRUPT POSITION 
NXTSP=NXTINT+1 ;END OF INTERUPT CHAIN 
INTSTK=NXTSF4+1 ;STACK OF INTERUPTS 
MMEND=400 ;MAIN MEMORY END 


PAGE: 00620 







DMCGAL . MAC 18-JAN-78 16:05 SCRATCH PAD ASSIGNMENTS SEQ 0062 
474 .SBTTL SCRATCH PAD ASSIGNMENTS 
475 oo0000 SP0=0  ;SPO---SCRATCH REGISTER 
476 000001 SP1=1 j SP1-—-PORT STATUS WORD 
478 iBTTOno Int T RODE 
pr :BIT1--NO FER ASSIGNED IN BOOT MODE 
“el BITS Cc 1 WHILE NOT IN MAINT MODE 
482 :BITY-- NDING 
se bushes’ res 
48S ooo0002 SPe= : 5 TATE POINTER 
wee 000003 SP3= : STATE POINTER 
m4 SOBDoE Spere YIP ORBORESS 
435 0000 SP6= :SP6 TRANSMIT ADDRESS 
490 000007 SP7=7  ;SP7 TRANSMIT ADDRESS 
43} 000010 5P10=10 ;SPL cect ane STATUS WORD 
493 :BITO-- ND 
494 Bt Oo eeceace IN ROGRESS 
49S *BIT2--L NE HAS 
496 :BIT3-- T RECEIVE 
497 ;BITH-~ LEGR ACTIVE ON END 
498 >BITS-- T MODE 
499 >BIT6--HALF DUPLEX 
soo :BIT7--OK TO SEND 
501 000011 SP11=11 jSPi1---R FIELD 
205 900015 eps /SPis---Tvee 
25¢ popots spiieis :SP14---TIFER ENTRY —-NungeR oe ee ire 
000016 SP16=16 :SP16---POINTER TO TMT LINK COPY _IN MAIN MEM 
507 000017 SP17=17 :SP17---LAST MESSAGE ACKNOWLEDGED 


LOS 
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DMCGAL . MAC 18-JAN-78 16:05 INIT--INITIALIZATION ROUTINE SEQ 0063 
503 - $B1TL ni hIT -INITIAL IZATION ROUT INE 
1 Be WA on CEIVE DATA(BOOT?) 
Bie if es at Ne EOR_BE 
e13 :WILL ACCEPT ONLY BASE FORMAT. ALL OTHERS WILL RETURN A PROCEDURE ERROR 
sis fat INITIALIZATION --- THE HARDWARE CLEARS THE BR AND MAR 
516 027654 . 227654 
517 027654 INIT: SP BR, SELB, SPO ;CLEAR SPO 
(1) oo0000 MICPC=MICPC+1 
(1) 027654 063220 <MOVE ! SPX x? BR! SELB! SPO> 
S18 027656 SP SELB, SP ;PAGE ONE TRANSFER ADDRESS 
(1 pares S280 CHOU SP at Gat se.prsea 
< $ H 
519 852 BRA Secs, B35 ;CLEAR SP17 
(1) oooo02 RicpcemIer peel 
(1) 027660 063237 <MOVE ! SPX! BR? SE {SP 17> 
S20 027662 Sp BR SELB, ;CLEAR SP12 
(1) 000003 nICPCeN pt+i 
(1) O27662 063232 <MOVE! SPX!BR! SELB! SP12> 
S21 027664 OUT BR. <SELA! OINCON> ;ZERO THE IN CONTROL CSR 
th) 7664 sti <ROVE! WRU xt '<SELA! OINCON> > 
533 eae OU ASELAS AS BSEONS ;ZERO THE OUT CONTROL CSR 
‘Tt 0276 De eo2 yeaah ext « ELA! OOCON? > 
S24 OS 5e58 a SP op ee cote 356: ;WRITE S ONE BITS TO THE HIGH ORDER 
(1) 027670 88 370 SHOVES MPT cpio 
S24 ;BITS OF SP10 
52S 027672 Ss: SP BR AA, SP10 :SHIFT SPIO LEFT SETTING CARRY THE 
(1) 000007 MICPC=M mICPe st 
(1) 027672 063130 SHOVE? oP X!BR!AA!SP10> 
S26 ;FIRST é TIMES THRU THE LOOP 
527 027674 MEMINC ADDC! SP3 ‘WRITE A ONE TO THE FIRST S MEMORY 
(1) 027674 89 G3 AOE? Pe NAB An 
528 ;LOCATIONS AND ZERO THE REST 
Ses 027676 aint te BR, IN INCA, SPO : INCREMENT COUNTER 
(1) 027676 ester ie ik ie eee 
S30 027700 ;ALL DONE 
(1) 12 " CPC= 
(1) 027700 101414 i RO! {108-INITS3000%4) ¢108- INIT8772 72)? 
S31 027702 KEEP GOING 
tt) 77 reer Perea ~emsaemahane NIT&777/ 
542 77 10S: 138i SRY 187 90 THE BR AND SPI 
(1) 000014 Ricrc=micect | 
(1) 027704 003401 eae ae” 
S33 027706 ;WRITE A 1 TO SPI1 
(1) 000015 Ricecent 
(1) 027706 063231 MOVE! SPX! Tri seLersPiL> 
534 627710 (OMA IMM, TYPTAB ;POINT MAR TO TYPE TABLE 
(1) 000016 HICPC=MICPCH 
(1) O27710 O1016e <MOVE! LOMAR! IMM! < TYPTAB&377> > 


MOS 
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DMCGAL . MAC 18-JAN-78 16:05 INIT--INITIALIZATION ROUTINE SEQ 0064 

53S 027712 BRWRTE IMM,226 ;WRITE SYNC TO MEMORY 

(1) 000017 rrGuE TRA TESR! oa 

536 55t§ ae UTE aR asetuis fe ;LOAD THE SYNC REGISTER 

(1) 027714 062234 <MOVE ! WR !<SELB!SYNC>> 

S37 627716 MERIC our! tigre ;REP 

(1) 000021 MICPC=MICPC41 

(1) 027716 016403 (MOVE ! WRMEM! tINCMAR! IMM! <3> 

538 027720 MEMINC MM : NAK 

(1) o00022 MIC snICP Hi 

(1) 027720 O16462 <MOVE! M! INCMAR! IMM! <2>> 

539 027722 MINC i 6 ; START 

(1) gopge3 M =mMICPCS 

(1) O27722 O164 <MO TAMER? NCMAR! IMM! <&>> 

S40 027724 MEMINC ; STACK 

(1) ooo024 MICPC=MICPC41 

(1) 027724 016407 SHOVE HIRMEM! INCMAR! IMM! <7>> 

S41 027726 MEMINC IMM 1 ; ACK 

i } 77 5 te a5 ; nrceeenicec? IMM!<1>> 

sie 77 Abt CbRn enreens BAR: ‘ ;POINT TO TABLE UPDATE STATE 

(1) 027730 <MOVE ! LOMAR! IMM! < TABST&377>> 

543 77 manly Pp oaTe ; INITIALIZE IT 

(1) 77 Mi y(¢13-1NIT877772)> 

5} 027732 BLESS <n CTHRMEM *yonen IMM! < <13-INIT8&777/ 

S44 77 A ein OR THITEAL IZE PORT STATUS 

(1) 77 ae ¢NIDLE2-INI 1&77772> 3 

(5) 77 era baa nen! MAR! IMM! < <NIDLE2- IN 777/2>>> 

sus 8555 aa ALC Can Hing NeaB’ Ab ESS OF LAST TMT CHAIN 

(1) 0277.36 010067 ire fymt <st8377>> 

Sit 77 ne big i Be TAL ;STORE ADDRESS OF FIRST TMT LINK 
0000 = CPC 

(1) 027740 O16471 MOVE !WRMEM! INCMAR! IMM! <TMLL>> 

547 027742 nen fig 

(1) 999033 MICPC=M oh 

(1) 027742 002471 SHOVE! MM!<TML1>> 

sue 027744 09 2 Ricpcam1 ec SELB, SP16 ; INITIALIZE LAST XMIT POINTER 

(1) 7744 098 < X! MEMX! SELB! SP16> 

S49 7746 ind Lone geese ;LOAD ADDRESS OF LAST RECV CHAIN 

(1) 027746 O10022 CHOVERL bee! bums <SRC&377>> 

5&0 027750 MEMINC | INH RCL ;SET UP ADDRESS OF FIRST RECV LINK 

= 

(4) 9877 Boose SASV STHAMER! #Ericman: rem RCLI> > 

551 77 MEM IMM, RCL1 

(1) 000037 MICPC=MICPC Pct 

(1) 027752 o02424 MOVE !WRMEM! IMM? <RCL 1 >> 

SS2 027754 Ss MEMX, SELB, SP1S 

(1) 900040 MICPC=MICPC+ 

(1) 027754 043235 <MOVE ! SPX! MEMX! SELB! SP15> 
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b1b240 
ooo04e 
01664e 


000043 
O00e64e 


oooo44 
000600 


oo0004S 
061221 


OOO046 
110642 


PAGE: OQOO6SDM 
INIT--INITIALIZATION ROUTINE SEQ O06S 
LDMA MM, NXTINT ;ADDRESS OF NEXT INTERRUPT POINTER TO MAR 
Ricecemicect 
<MOVE!L ! IMM! <NXTINT&377> > 
MM INTSTK ; INITIALIZE NEXT INTERRUPT POINTER 


SHEET east anes» 


MEM IMM, INTSTK ; INITIALIZE INSERTION POINTER 
MICPC=MICPC41 
<MO Pes lage canesno, 
BRWRTE ;MASK TO SET RUN BIT 
MICPC=MICPC41 
<MOVE ! WRTEBR? IMM! <200>> 
BR. «SELB! OMAIN> ;WRITE THE RUN BIT TO MAINT CSR 


SUT 
mIcpceMICrC+1 
<MOVE! MAOUTX!BR! “SELB! OMAIN> > 


6 WAYS nTeeeel 
MICPC=MICPC+1 
< JUMP! ALCOND! < TEOM2-INIT&3000#4> ! < TEOQM2-INIT&77772>> 


;FALL INTO IDLE LOOP 


(1) 


a SR nae 


= Dee 
— ees es 
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030014 


030014 
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000047 
020620 


000050 
173202 


00S1 
0640 
ooo0se 
167203 
0000S3 
010210 


oooo0s4 
140620 


ooo0ss 
123620 
O0O000S6 
113246 
000057 
010211 


000060 
140620 


B06 


IDLE--PROGRAM IDLE LOOP 


IDLE: 


Il: 


Te: 


13: 
IDLEO: 


IDLE1: 


-SBTTL IDLE--PROGRAM IDLE LOOP 
: PROGRAM OLE L 


:DISPATCHES TO APPROPRIATE SERVIC 
‘USES STATE POINTERS FOR TMT,RCV 


BRWRTE I TMTCON 
MICPCaNIC +1 

(MOVE! WRTEBR! IBUS! <TMTCON> > 
p> ae PaSELA, <2tPAGEe? 

< 3 CON! DP! SELA! 2! PAGE2> 
WRTE _IBUS,RCVCON 

MIC snl +1 

<MOVE ! WRTE : IBUS <RCVCON> > 
.BRY BR, SELA, SP3! PAGE 1 
MICPC=MICPC+1 

<JUMP! BRYCON! BR! SELA!SP3!PAGE1> 
LOMA IMM, T 

MICPC= cectl 

(MOVE! L ' IMM! <TABST&377> > 
-ALWAY MEMX, SELB,O 
MICPC=MICPC+1 

< JUMP! ALCOND ! MEMX! SELB! 0> 
SPBR IBUS, UBBR, SPO 
MICPC=MICPC+1i 

<MOVE ! SPBRX! IBUS! UBBR! SPO> 
BRY eMSRY 

MICPC=MICPC+1 

< JUMP! BRYCON! 


-ALWAY MEMX, SELB,O 
MICPC=MICPC+ 
« JUMP! ALCOND ! MEMX! SELB! 0> 


om 


;READ LINE UNIT RECEIVE CONTROL WORD 


;BRANCH BASED UPON RECV STATE 


;POINT TO TABLE UPDATE STATE 


; TIMER EXPIRES? 


CON! < TIMSRV-INIT&3000#4> ! < TIMSRV-INIT877772>> 


;ADDRESS PORT STATE 


; INDEX 


: OO660M 
SEQ 0066 


Cnn 
a 
~~ 


—— Oe 
~~ ~GWwew 


ee AS ee ety ee Cee | aoe 
new 


UT del Ll ed A © el ool fd 


CO 
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. MAC 18-JAN-78 16:05 NIDLE2@---NO CSR ACTIVITY STATE SEG 8868" 
-SBTTL NIDLE@---NO CSR ACTIVITY STATE 
030016 NIDLE2: BRWRTE BR,SELA!SP1 ;READ PORT STATUS WORD 
BI MOET UAT +1 
B00 18 1 <MOVE !WRTE Eat SEL a? 
BRY QUTIN 


030020 059885 MR Bad CON? <OUTINT INI T&3000#4> ! <OUTINT-INIT8&777/2> > 
SPBR _—s«IBUS. INCON, SPO ;READ INPUT CONTROL CSR 
MICPC=MICPC+1 


000063 
030022 123400 


VE ! SPBRX! IBUS! INCON! SPO> 
030024 BRSHF T ;SHIFT IT RIGHT 
cance SBS Shove TBR ue reon se. 
0 ‘ BR non INWATI : ;IF RQ@I SET -- BRANCH 
= 
030026 ii Baa CURB! BRMCON! ¢INMAT1 INI TB3OOOH4> #«INMAT1-1NIT8777 /2> > 


Ee" told IB ATRIETERL Te 0 


030030 NIDLE6 
030030 10S: SPBR 1BUS MODEM, SPO ;READ MODEM CONTROL CSR 
30 boseen <HOVE! SPBRX? [BUS MODEM? SPO> 
S3o032 BRWRTE Be, Aa SPO ;SHIFT IT LEFT 
beoseo MOVE? UR TEBR? BR! “AA! SPO> > 
S30034 <i a sl ;IF DSR SET, CLEAR FLAG 
10070 + 
< JUMP! ON! <SETDSR-INIT&3000%#4> ! <SETDSR-INIT8777/2> > 
830036 — BRURTE BR SELAISPIO ; READ Ooh STATUS WORD 
30036 BeDE10 <HOVE IUATEBR!BR! <SELA!SP1O> 
_— 000072 are Tat +1 
030040 001620 SHOVE? SHE TSR? WRTEBR! SELB> 
030042 ano073 Ricecant (Pts ;START MODE 
4 4 < ' ON! < IDLE-INIT&3000*4> ! < IDLE-INIT8777/2>> 
835045 pate: BRURTE Be pai SPI ;READ PORT STATUS WORD 
030044 060521 oa ak 
030046 300075 RICeCanICPCs on 
) ! ¥< ~INIT&3000#4> ! < IDLE-INIT&77772> > 
B3ppe8 sien. ae = BLE petal ;DISCONNECT ERROR ALREADY SENT 
o300s0 fos44e SOME? BRE ON! < TLE -INIT8390984 <TDLE- N1IT&77772>> 
030052 SPBR ous nA N,SPO  ;READ THE MAINT REGISTER 
osoose fo9ue0 <HOVE SPBRX! IBUS! HAIN? SPO> 
030054 hie BRI E 1 Baho0! SPO ;SHIFT LEFT 
030054 O604 CHOVE WRTEBR! BR! <ADD! SPO> > 
———| SR eceMTOPeel pedeunpeditils-cnds 
030056 103047 < JUMP! BRYCON! < IDLE-INIT&3000%4> ! < IDLE-INIT8&777 72> > 
030060 BRWRTE IMM, 100 :WRITE DISCONNECT ERROR 


DO& 


PAGE: OO680M 
DMCGAL . MAC 19-JAN-78 16:05 NIDLE2---NO CSR ACTIVITY STATE SEO 0068 
(1) oo0102 MICPC=MICPC+1 
(1) 030060 000500 <MOVE!WRTEBR! IMM! <100>> 
625 030062 BR AORB, SP1 :FLAG ERROR RECORDED 
D ee888i hove Pet nona: se 
B3S885 alongs ERIK ;MAKE A CONTROL OUT 
(1) 000104 NICPCEMICPCe | 
(1) 030064 114657 < JUMP! ALCOND! <ERRXX-INIT&3000#4> ! <ERRXX-INIT&77772> > 
627 030066 SETDSR: BRWRTE IMM, 277 :CLEAR DISCONNECT ERROR FLAG 
(1) 900105 MICPCeMICPCst 
(1) 030066 0006 <MO EBR! IMM! <277>> 
628 030070 ALWAYS CLRIDL 
(1) 000106 m CPC=MICPC+1 
(1) 030070 100646 UMP? ALCOND! <CLRIDL-INIT&3000#4> ! <CLRIDL-INIT&77772> > 


£06. 


PAGE: O0690M 
DMCGAL . MAC 18-JAN-78 16:05 NIDLE2---NO CSR ACTIVITY STATE SEQ 0069 
63S 030072 IEIWAT: SPBR igus INCON, SPO ;READ INPUT CONTROL CSR 
(1) g30072 2S4g0 Prete! teuss incon! SPa> 
636 030074 BR7 10$ ;RDYI STILL SET 
(1) 099119 MICP ys PC+1 
(1) 0300 103512 < JUMP! BR7CON! < 10S-INIT&3000#4> ! < 10$-INIT&777/2> > 
637 030076 ALWAYS INWATI ;GOT CLEARED BY 11 RE-SET IT 
(1) 000111 MICPC=MICPC+1 
(1) 030076 114444 < JUMP! ALCOND! < INWAT1-INIT&3000#4> ! < INWAT1-INIT&77772> > 
2 030100 10$: BRWRTE BR, <AA!SPO> ;CHECK IEI 
(1) 930100 beosea COVE TWRTEBRIBR! <AA! SPO> > 
639 0301 Se ININT ;IEI SET, GENERATE INTERRUPT 
(1) 000113 MICPC=MICPC+1 
(1) 030102 103606 < JUMP! BR7CON! < ININT-INIT&3000#4> ! < ININT-INIT&777/2> > 
640 030104 INWAT2: BRWRTE I INCON ;READ INPUT CONTROL CSR 
(1) o30104 feo400 CGVE TURYEBR! IBUS! <INCON> 
ey -amapees 011s MICPC=MICPC+1 
(1) 030106 eye <ROVE ! SHE TBR! MRTEBR! SELB> 
ob} alanine 000116 MICPC=M arsed 
= 
(1) 030110 103066 CT GME BRS ON! <NIDLE6-INIT&3000#4> ! <NIDLE6-INIT3&77772> > 
650 O301le INSRV: SPBR k INCON, SPO ;READ THE INPUT CONTROL CSR 
Ch) 030112 reer MOVE? oP tg aaepanaRE a: 
651 030114 BRI ;--SENSE OR BASE 
(1) 000120 nICeC=HI +1 
(1) 030114 102532 < JUMP! BRICON! <30$-INIT&3000#4> ! <30$-INIT8&777/2>> 
652 030116 PSTATE CTLSRV : CNTL I 
(1) O30116 nen Ln <<CTLSRV-INIT8&77772> $ 
(2) 000121 M CPcent pci 
(2) 030116 O0265S <MOVE ! M! IMM! <<CTLSRV-INIT&77772>>> 
653 030120 BRO 208 ;CNTL I 
(1) Ol pet Ss MET BROCONE «208 INIT8&3000#4> ! <20$-INIT8&777/2>> 
° = ° ~~ / 
654 635155 SRSHET ;MUST BE BA/CC 
(1) 000123 MICPC=MICPC+1 
(1) 030122 Oo01620 <MOVE ! SHP TBR! WRTEBR! SELB? 
65S 030124 PSTATE RBASRV sASSUME IN 
(1) 030124 MEM IMM, <<RBASRV-INIT&77772> $ 
(2) 124 MICPC=MICPC41 
(2) 030124 002723 <MOVE ! M! IMM! <<RBASRV-INIT&777/2> >> 
656 030126 BR1 ;REC BA/CC 
(1) 000125 MICPC=MICPC+1 
(1) 030126 102527 cJUMP 1 BRL ON! <20$-INIT&3000#4> ! <20S-INIT&777/2>> 
657 030130 PSTATE -XMIT BA/CC 
(1) 030130 MEM IMM, << TBASRV-INIT&77772>$ 
(2) 000126 MICPC=MICPC41 
(2) 030130 0027 <MOVE !WRMEM! IMM! << TBASRV-INIT&77772>>> 
658 030132 20S: BRWRTE BR, SELA!SP1 ; INIT MODE 
(1) 000127 MICPC=MICPC #1 
(1) 030132 O60661 (MOVE! WRTEBR! BR! <SELA!SP1>> 
659 030134 0 OCER :IF INIT MODE--ERROR 
(1) 000130 MICPC=MICPC+1 


—— Orr 


| Neket Sahat Senet dieser 1 


a 


FO6 


PACE: 0070 
.MAC 18-JAN-78 16:05 NIDLE2@---NO CSR ACTIVITY STATE SEQ oon" 

030134 102133 < JUMP! BROCON! <PROCER-INIT&3000#4> ! <PROCER-INIT&77772> > 

030136 ALWAYS E 
000131 MICPC=MICPC+1 

930136 100447 CTUMP SALE * <IDLE-INIT&3000%4> ! < IDLE-INIT8&777/2>> 

1 30S: BR 1 ;IF BASE---PROCESS 

000132 MICPC=MICPC+1 

030140 102143 < JUMP! BROCON! < INSRV1-INIT&3000#4> ! < INSRV1-INIT8&77772>> 

030142 PROCER: PSTATE NIOLE2 “RESET PORT STATUS 

14 M ine <<NIDLE2-INIT8&777/2> 5 

000133 MICPC=MICPC41 

030142 002461 <MOVE ! WRMEM! IMM! <<NIDLE2-INIT&77772> >> 

030144 BRWRTE int 100 ;CLEAR INPUT CONTROL CSR 
000134 MICPC=MICPC41 

030144 9o00500 CMOVE !WRTEBR® IMMt < 100> > 

030146 OUT AANDB! OINCON 3; 
000135 MICPC=MICPC+1 

030146 061260 <MOVE ! WROUTX! BR! <AANDB! OINCON> > 

0301 LOMA IMM, <<RTHRS+2>> ;ADDRESS ERROR LINK 
000136 MICPC=MICPC41 

030150 010177 <MOVE ! LOMAR! IMM! <<RTHRS+3>8377> > 

saa 0137 rcp ese ane 

030152 peed ae <MO THRMEM! ENCMAR! IMM! <2) > 

030154 MEM inn 0 
000140 MICPC=MICPC+i 

030154 O02400 «MOVE! WRMEM! IMM! <O>> 

030156 OUTPUT MEMX, SELB! OMODEM ;CLEAR DATA TERMINAL READY 
000141 MICPC=NICRC+ | 

030156 042233 <MOVE ! WROUT ! MEMX? <SELB! OMODEM> > 

030160 ALWAYS RCEX ;POST THE ERROR - FATAL 
000142 MICPC=MICPC+1 

030160 114511 < JUMP ! ALCOND! <RCEXX-INIT&3000#4> ! <RCEXX-INIT877772>> 

030162 INSRV1: BRWRTE AXORB! SP1 sINIT MODE? 
000143 MICPC=NI Pt+1 

030162 060721 <MOVE !WRTEBR! BR! <AXORB!SP1>> 

030164 BRO PROCER 
000144 MICPC=MICPC+1 

030164 102133 < JUMP! BROCON! <PROCER-INIT83000#4> ! <PROCER-INIT8&777/2> > 


mw 


i cneiacentiemandinean NR NR eS 
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.SBTTL BASSRV---- BASE SERVICE ROUTINE 
BASSRY: PSTATE NIDLE2 


030166 
030166 MEM IMM, <<NIDLE2-INIT&77772> > 
014s MICPC=MICPC+ 
030166 2461 <MOVE! M! IMM! <<NIDLE2-INIT&77772> >> 
1 LOMA IMM ;CLEAR TO MAR SO IT POINTS TO BASE POINT 
90 146 NICPC=N C i 
930179 10017 (MOVE! L ' IMM! <BASE8377>> 
17. MEMINC IBUS. PORTI ;READ CSRY 
000147 MICPC=MICPC+1 
030172 136500 <MOVE ! M! INCMAR! IBUS! <PORT1>> 
030174 MEMINC I PORT2 ;READ CSRS 
000150 nIcPcen cece} 
020174 136520 «MOVE! ' INCMAR! IBUS! <PORT2> > 
030176 MEM I PORTY 
000151 MICPC=MICPC+1 
030176 122560 (MOVE! WRMEM! IBUS! <PORT4> > 
030200 SP iBuS INCON, SPO ;READ INPUT CONTROL CSR 
000152 MICPC=NIC +1 
030200 123000 <MOVE ! SPX! TBUS! INCON! SPO> 
030202 BRWRTE IMM, 100 ;CLEAR THE BR 
000153 MICPC=MICPC41 
030202 000500 (MOVE !WRTEBR! IMM! < 100> > 
030204 OUT <AANDB! OINCON> ;CLEAR THE INCONTROL CSR 
000154 mICPCen +1 
030204 061260 < : X! BR! <AANDB! OINCON> > 
030206 OUTPUT IMM, <120!OMODEM> ;MASK FOR HDX AND DTR 
o001s5 MICFC=M crett 
030206 002133 <MOVE ! * IMM! < 120! OMODEM> > 
030210 BRWRTE MX, SELB ;READ SEL6 
000156 MICPC=MICPC+1 
030210 o40620 (MOVE ! WRTEBR! MEMX! <SELB>> 
030212 4 RE ;IF SET RESUME 
000157 MICPC=MICPC+1 
030212 103167 MT ES THANCON: <RESUME-INIT83000%4> ! <RESUME-INIT8777/2>> 
030214 LOMA inet T ;LOAD ADDRESS OF TYPE FIELD 
000160 MICPC=MICPC41 
030214 O10151 <MOVE ! LOMAR! IMM! <1T&377> > 
030216 MEMINC IMM.6 ;WRITE START TYPE TO MEMORY 
900161 MICPC=MICPC41 
030216 016406 «MOVE! WRMEM! INCMAR! IMM! <&>> 
030220 MEM IMM, 300 ;WRITE SELECT AND FINAL TO MEMORY 
000162 nICPC=M cpct+ 
930220 002700 <MOVE! Ae Mit? < 300> > 
0 SP CA, SP1 ;TURN OFF INIT MODE 
000163 MICPC=MICPC+I 
030222 063161 <MOVE 1SPX! BR! DECA! SP1> 
030224 BSI: RWRTE in 241 ;SET OK TO SEND,STARTMODE AND UNNUM PENDING 
000164 MICPC=MICPC+1 
g3g2eH 000641 <MOVE WRTEBRE IMM: 241 > 
BSO: SP IMM, 374, SP14 ;RESET REP COUNTER 
000165 MICPC=MICPC41 
030226 003374 <MOVE ! SPX! IMM! 374! SP14> 
030230 ALWAYS SA3 
000166 MICPC=MICPC+1 
030230 110743 < JUMP! ALCOND! <SA3-INIT&3000#4> ! <SA3-INIT87772> > 
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MAC 18-JAN-78 16:05 BASSRV---- BASE SERVICE ROUTINE SEQ 0072 
030232 RESUME: SP IMM, SP4,4 ;SET UP SP4Y FOR COUNTING NPRS 
S848. CASTES Tareeray, 
838535 SP NCR. SP ;SET UNNUMB MESSAGE PENDING TO 
030234 Be3a70 Ricecentertst so 
; TRICK TRANSMITTER CODE 
030236 LOMA IMM, BASE !ADORESS BASE TABLE ADDRESS 
000171 NIcPCaNICPC$ | 
930296 010017 <MOVE! 'LOMAR! IMM! <BASE&377> > 
STAT F ;SET TMTR STATE TO ENTER TABLE UPDATE 
000172 MICPC=MICPC+1 
030240 000745 <MOVE ! FEBR! IMM! <FUDGE- INIT877772>> 
030242 ALWAYS TBO ;GO SET UP MXT BITS AND ADRESS OF BASE FOR NPRS 
000173 MICPC=MICPC+1 
g3024e 110463 < JUMP! ALCOND! < TBO-INIT&3000#4> ! < TBO-INIT&777/2>> 
44 BS2: LOMA MM, IMG10 
000174 MICPC=M Hi 
030244 010154 <MOVE #L * IMM! <IMG108377> > 
S3osue Sp eee AORB, SP10 ;RESTORE BIT 1 OF SP1O 
900175 MICPC=MICPC+1 
030246 7310 <MOVE ! SPX! MEMX! INCMAR! AORB! SP10> 
SP MENX? INCMAR, , SELB, SP11 ;RESTORE SP11 
Bef MOVE? SPX! HEX! NCMAR! SELB:SPLL> 
83528 SP MEMX! INCMAR, SE :RESTORE SP1S 
900177 MICPCs =MICPC+1 
030252 235 es dct vaste ieee 
036254 35 MEN SELB, SP17 ; RESTORE SP17 
By 3599 Ronco } 
030254 3 <MOVE ! SPX! MEMX! SELB! SP17> 
030256 SP MEMX, SELB, SPl2 ; RESTORE SP12 
o302s— 649532 <HOVE!S one # LB!SP12> 
030260 BR BECA SPIO ;TURN OFF UNNUM MESSAGE PENDING AND 
coo202 RICPC=MI pt+i 
030260 063170 HOVE! SPX! BR! DECA! SP10> 
;ZERO THE BRG 
030262 sp BR DECA,SP1 :CLEAR INIT MODE 
000203 MICPC=MICPC+1 
030262 063161 <MOVE !SPX!BR!DECA!SP1> 
030264 BRWRTE IMM, 206 
000204 MICPC=MICPCS 1 
030264 o00606 <MOVE !WRTEBR! IMM! <206> > 
030266 ALWAYS NAKI 
MICPC=MICPC+1 
o30266 1149434 < JUMP # ALGOND! <NAK1-INIT&3000#4> ! <NAK1-INIT&777/2>> 
0270 ININT: PSTATE INWAT2 
0302 MEM IMM, << INWAT2-INIT&77772> > 
000206 MICPC=MICPC ti 
93027 002514 cMOVE :WRMEM! MM! << INWAT2-INIT&777/2> >> 
20 BRWRTE IMM.1S ;MASK FOR TURN OFF ALL BUT EXT MEM BITS + NXM 
000207 MICPC=MICPC41 
030272 OO04IiS <MOVE! WRTEBR! IMM! <15>> 
030274 SP IBUS. UBBR, SPO ;READ BR CONTROL REG 


oo0210 MICPC=MICPC+] 


PAGE: 00730M 

DMCGAL . MAC 18-JAN-78 16:05 BASSRV---- BASE SERVICE ROUTINE SEQ 0073 

(1) 030274 123220 <MOVE! SPX! IBUS! UBBR! SPO> 

712 030276 SP BR. AANDB, SPO :MASK OFF VECTOR TO x04 

(1) 000211 MICPC=MICPC+1 

(1) 93087 063260 <MOVE ! SPX! BR! AANDB! SPO> 

713 568 BRWRTE IMM, 200 ;MASK FOR INTERRUPT 

(1) 909212 MICPC=MICPC41 

(1) 030300 06 «MOVE ! WRTEBR! IMM! <200>> 

714 030302 ALWAYS RBY 

(1) 000213 MICPC=MICPC+1 

(1) 030302 104457 < JUMP! ALCOND! <RB4Y-INIT&3000#4> ! <RBY-INIT8777 72> > 


(2) 
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0304 
0304 
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030304 
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030306 
030310 


030310 
030312 
030312 
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030314 
030316 
030316 
030320 
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030322 
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030334 
030336 


030336 
030340 


030340 
03034e 
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000230 
010240 
000231 
043220 
000232 
O0eb4e 


000233 


OUTINT---SET UP OUTPUT INTERRUPT [ROYO]) 


OUTINT: 


PINTe: 


JO6 


-SBTTL OUTINT---SET UP OUTPUT INTERRUPT [RDYO] 


PSTATE OUTWAIT -PORT STATUS TO WAITING FOR OUT 
MEM IMM, <<OUTWAIT-INIT8&77772>> 
MICPC=MICPC41 
<MOVE ! WRMEM! IMM! < <OUTWAIT-INIT&77772>>> 
; COMPLETION 


LDMA IMM, NXTINT sADDRESS OF NEXT INTERRUPT POINTER 
ay et 

, x SELB ;NEXT INTERRUPT 
MMOVERL ‘i | ae 
SP __IBUS, OCON, SPO ;READ THE OUTPUT CONTROL CSR 
MISUE! SPX? {BUS! OCON! SPO> 
OUT  <MEMX! INCMAR> , «AORB! OOCON> ;WRITE THE OUT CONTROL CSR 
he TES xt memx! INCMAR! <AORB! OOCON> > 
L ‘ -SELB- ‘ ‘ ; ADDRESS LINK 


ote c<MIcPCe 
MICPC=mMICPC+1 
<MOVE #L 'MEMX! <SELB>> 
BRWRTE <BR! INCMAR> , <AR! SPO> 
MICPC=MIC C+ 

(MOVE ! WRTEBR! BR! INCMAR! <AR!SPO> > 


;KICK PAST LINK STATUS BYTE 


-SHIFT CSRO IMAGE LEFT 
-#%*DO NOT CHANGE BR UNTIL BR7*#* 
OUT <MEMX! INCMAR> , <SELB! OPORT1> ;WRITE LOW BYTE OF BA TO CSR 
MoS UE UROUTXEMEMX! INCMAR! <SELB! OPORT1> > 
OUT  <MEMX! INCMARD , “SELB! OPORTe> ;WRITE HIGH BYTE OF BA TO CSR 
MS UE IROUTXEMEMX! INCMAR! <SELB! OPORT2> > 
OUT <MEMX! INCMAR> , <SELB! OPORTY> ;WRITE HIGH BYTE OF COUNT TO CSR 
MICPC=MICPC+1 
<MOVE ! WROUTX! MEMX! INCMAR! <SELB! OPORTY> > 


our nen! INCHAR , <SELB! OPORTS? ;WRITE THE LOW BYTE OF COUNT 
! ! : rr !OPORT3>> 
<MOVE ! WROUTX! MEMX! INCMAR! <SELB He so nell 
BR? mreee : : INTERRUPT ENABLE IS SET 
= + 
'BR7CON! <PE1-INIT&3000%4> ! <PE1-INIT&777/2>> 
AINA gee oe mae ;GENERATE AN INTERRUPT 
DMA IMM, NXTINT ;ADDRESS NEXT INTERRUPT QUEUE 
MICPC=MICPC41 


«MOVE! LOMAR! IMM! <NXTINT&377>> 


SP Mx A 

MICPC=MICPC+1 

<MOVE ! SPX! MEMX! SELB! SPO> 
INTSTK 


MEM I 

MICPC=MICPC41 

<MOVE !WRMEM! IMM! < INTSTK> > 
BRWRTE IMM, <<MMEND-e2>> 
MICPC=MICPC+1 


;COPY ADDRESS FOR NEXT INT TO SPO 
;ASSUME WRAP AROUND CASE 


;ADDRESS OF LAST INT IN STACK 


PAGE: O00740M 
SEQ 0074 


Oo 
a 


Lada radipurentbeoselibere aaa 
we ee YOY ew De ~~ Dee new 


RD 


—e 
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KO6 


PAGE: 007S0M 


.MAC 18-JAN-78 16:05 OUTINT---SET UP OUTPUT INTERRUPT [ROYO) S90 6075 
030342 000776 <MOVE! WRTEBR! IMM! < <MMEND-2> >> 
030344 R. SPO ;SHOULD WE WRAP 
000234 MICPC=MICPC41 
93034K 060360 <SUBTC! BR! SPO> 
46 2 o$ ; YES--BRANCH 
000235 MICPC=MICPC+1 
030346 191640 < JUMP MP1 ZCOND! (SS-INIT83O00#4) # «SS-INIT8777/@) » 
BRWRTE nN OFFSET FOR NEXT POINTER 
000236 MICPC=MICP 
030350 o0040e “HOVE? ie mits <2 > 
030352 matte ;UPDATE POINTER 
000237 AT CPCeMIC 
030352 062400 MOVE! i 
030354 S$: Se MX SELB, SPO ;COPY POINTER TO SPO 
o00240 MICPC=MIC 
030354 043220 <HOVE! SPX:ENX! SELB! SPO> 
030356 LDMA IMM, NXT ;PICK UP START OF IN QUEUE 
0241 nICP CSM cecil 
030356 010241 bsaR MM! <NXTSP8&377> > 
030360 CMP MEMX ;COMPARE TO END 
o0024e MICPC=MICEC+ 
030360 040360 <SUBTC! MEMX! SPO> 
030362 Z i ; IF EQUAL--CLEAR INT PENDING 
000243 MICPC=MIC 
030362 101645 < JUMP pizc +} 10s-1NIT83000%4> ! <10$-INIT&77772>> 
030364 aLwa epee 
oo00244 RICPCOMICPCS 
030364 100447 < JUMP! ALCOND! < IDLE-INIT&3000%4> ! «IDLE -INIT8777/2>> 
30366 10S: BRWRTE IMM, 357 MASK TO CLEAR INT PENDING 
000245 MICPC=MICPC4+1 
030366 000757 (MOVE! WRTEBR! IMM! <357>> 
030370 CLRIDL: SP BR AANDB, SP1 
000246 MICPC=MICPC+1 
030370 063261 <MOVE ! SPX! BR! AANDB! SP1> 
030372 ALWAYS IDLE 
000247 MICPC=MICPC+1 
030372 100447 < JUMP! ALCOND! < IDLE-INIT&3000#4> ! < IDLE-INIT&777/2>> 
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030374 


sanar? 
S888 


030400 
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030420 
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030434 
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18-JAN-78 16:05 


o00eS0 
123440 
o00e51 
103466 
oodese 
000S00 
e253 
lebe 


o00eS4 
100667 


o00esSS 
123560 
OeS6 
1620 


000eS7 
102677 


000260 
002113 


000261 
060600 
000262 
116351 


000263 
123000 


00800 
Bb i866 
Biosti 
000267 


00e461 


000270 
100447 


LO6 


OUTWAI--WAIT FOR RDYO TO GO AWAY 


TTL 
OUTWAI: § 


US, OCON, SPO T FOR RDYO TO 


thn a 


She NOL 
nicer Geel 


S!OCON! SPO> 


ReaD OU OUTPUT CONTROL CSR 


;RDYO SET --GET OUT 


POGh <NIDLEG- INT TRSPAR COR <NIDLE6- ae ill ale 


RICPCENICECS! 
«MOVE! WRTEBR! IMM! <100>> 
T OOCON! RANDB 


MICPC=M +1 
<ROVE LHROUTEBR! <OOCON! AANDB) > 


ALWAYS 


CPC+ 
< Une? ALCOND! (IN13-IN7TB3000%4># 
L_I SERVICE 


CTLSRV: § 


CTLSRV--CNTL 


+1 
! SPBRX! IBUS! PORT4! SPO> 


BRSHFT 
MICPC=MI +1 
SHOVE? SHE TS 'WRTEBR! SELB> 


BR1 L 

MTGMPTBRI CON < NIT83000%4 ! 

OUrPute tan ¢ {bb RODEN) 

RIcPCeMICPCS1_ 

<MOVE T! IMM? < 100! OMODEM> > 
INS11: BRWRTE <SELA! SPO> 

MICPC=MICPC+1 

<MOVE ! WRT 'DP!<SELA!SPO>> 

BR T 

MICPC=MICPC41 

(JUMP! BROCON!  CBOOT=INIT&3O00%4) ! 
INS12: SP i INCON, SPO 

MICPC=MICPC+1 

<MOVE ! SPX! TBUS! INCON! SPO> 


NICPCoM 
= 
CHOVEEL 
INS13: PSTATE 
MEM 
MICPC=M 
<MOVE! 


ALWAYS 
MICPC=M 


OINCON> 


< 
+ 
eit on: ! <AANDB ! OINCON> > 
IMM, PRTST 


AGES toms !<PRTST&377>> 


NIDLE2 
IMM, <<NIDLE2-INIT&77772> > 
cpect1 


EAR CONTROL BIT 


!<INS13-INIT&77772>> 
;TO SPO 


;IF SET IS HALF DUPLEX 


«HOSEL - “Thask BTS 1 
MASK DTR, TURN OFF HDX 


;RESTORE THE CNTL WORD 
;IF SET IS BOOT 


<CBOOT-INIT&77772>> 
READ THE INPUT CONTROL CSR 


;ZERO THE BR REGISTER EXCEPT INT ENABLE 


;CLEAR IN CONTROL CSR 


;ADDRESS PORT STATE 


M! IMM! <<NIDLE2@-INIT&77772>>> 


E 
ICPC+1 


< JUMP! ALCOND! < IDLE-INIT&3000#4> !< IDLE-INIT&77772>> 


TagmxT: §p 


IBUS, UBBR, SPO 


;READ BR CONTROL 


PAGE: 


00760 
SEQ 0076 


oO 
= 
oO 
co 8 


be Ore ee — 0 
we Qe ~~ Ne ee ee OY Ww 


Peandonl 


Vee New 


—— Oe 


MO6 


PAGE: 00770M 
. MAC 18-JAN-78 16:05 CTLSRV--CNTL I SERVICE SEQ 0077 
000271 py 9 yl Coady 
030436 1le3e20 MOVE ! SPX! IBUS! UBBR! SPO> 
030440 BRURTE ;MASK TO CLEAR BR REG 


oso44o Bansis RISVEPIATEGA me cs» 


endian 27 MICPC=MICPC+ - 
= 
pase 68260 SHOVE: Es von sro 
4 & IMM,4 ; INCREMENT MXT 
000274 MIC =MICPC41 
030444 000404 «MOVE! WRTEBR! IMM! <4>> 
030446 OUT ROD! OBR 
000275 MICPC=MI 
030446 061011 <MOVE! TX! BR! <ADD! OBR> > 
030450 WAYS x 
000276 MICPC=MICPC+1 
030450 114734 <JUMPLALCOND! <ECX-INITBSOO04> # <ECX-INIT8&77772> > 
030452 es HDSEL: 8 ;HD MASK TO BR 
gaouse 888855 PASVETIATESt rn cig 
4 ;UPDATE PORT STATUS WORD 
000300 AICPC= =MICPt+1 
0304S4 063310 <MOVE ! SPX?! t AORB! SP10> 
030456 ALWAYS INS11 
000301 MICPC=MICPC+1 


O304S6 100661 < JUMP! ALCOND! < INS11-INIT&3000#4> $< INS1L1-INIT&77772>> 


NO6& 


PAGE: 00780M 
DMCGAL . MAC 18-JAN-78 16:05 TBASRV--TRANSMITTER BUFFER ADDRESS SERVICE SEQ 0078 

? L TBASRV--TRANSMITTER BUFFER ADDRESS SERVIC 
800 030460 TBASRV: Lona IMM ETC SEES BOINTER TO END OF TMT CHAIN 
(1) o30460 910896 prey Sea Tne cE7083779» 
801 O30462 Loma MENX, < SELB! SPX! SPO> ;FIND THE LINK 
tL) noes MOVE! DMAR ee 
ga2 O3o4e5 MEMING IMM, 1 ;BUFFER ASSIGNED IN IN LINK FLAGS 
F aaoaey SP088! TROVE TOARES crmas re cho 
803 O304ee bat SRRTE mnt INUMAR> , TMLB ;POINT PAST NUMBER FIELD 
(1) = 

0304 < H § H MAR! <TML&>> 
ao via BiseH3 uliateseae poten ;SET BR FOR ADDITION TO SPO 

03047 
(1) ° 000306 ices Carers! 
(1) 030470 136500 M! INCMAR! IBUS! <PORT1>> 
BH OBOE on tm al 
(1) 930972 136520 <MOVE ! Hi INCMAR! IBUS! <PORT2> > 
ei BON o310 rede 
9) 930474 136560 nenyne + aera nous: cron 
(1) 000311 MICPC =m 
$9) 930476 rete «Ho ed Fi INcMaR? TBUSt <PORTS>> 
(1) 4 M 
(1) o30s00 igae6 CHOVETL Daa! fret ce1c8377> 
810 O30ebe MEM IMM, TMLi ;ASSUME QUEUE WRAP AROUND 
Ch) 030502 p99333 MAOUE TY hans tee kid 
811 030504 Cc . ;END OF CHAIN? 
(1) o30so4y eased maBtCr ores ; 
Ble 030506 ;IF YES--BRANCH 
CH caosoy S807 RiseartB fo oa- ana raacooe 1<s08-mn118727/49 
813 S361 BRWRTE IMM.6 ;QUEUE ENTRY LENGTH 
8 SaBeAe SHOU TOA ESR ee o> 
814 paper MA ROD SP ;UPDATE THE END POINTER IN MEMORY 
(1) 030512 nee ne ances !<ADD! SPO> > 
815 030514 10S: BRWR é IMM mer ;NUMBERED MSG PENDING MASK 
(1) 030514 59 aie nicecemitect MM! <2>> 
816 030516 ’ sp BR, AORE, SP10 ;UPDATE LINE STATUS 
(1) 0321 hrcpcantcecel 
£13 030516 3310 <MOVE X+BR?AORB! SP10> 
(1) + 
1) ososeo 0006S Tuer PC EOA "REFN BOPDDE a SRPELPCERE TZ”? 2 ‘ 
819 030522 RBASRY: LOMA IMM, ERC ;ADDRES END OF RECEIVE CHAIN 
(1) 000323 MICPC=MICPC41 


2 
P 


~~ 
be 
~ 


§ 


== Me Me Oe 


i 


—) 


— 
ee 


BO? 


PAGE: 00790M 
MAC 18-JAN-78 16:05 RBASRV--RECEIVE BUFFER ADDRESS SERVICE SEQ 0079 
930528 010023 <MOVE! LOMAR! IMM! <ERC8377> > 
L MEMX j (SEL «SPX! SPO> ;GET THE POINTER TO LINK 
000324 nic th cPc+l 
93052" 053220 'MEMX! <SELB!SPX!SPO> > 
000325 ce bpctt 
930526 016401 wi Toman: 1 «1>> 
0305 rete piste SE cra: tust cron 
0327 M sh se 
3 eeesa mci FUE hee ine: com 
000330 ice 
030534 136560 Es cna ust cron 
030536 1BuS PORT3 
000331 nt Cant . 
030536 136540 M! INCMAR! IBUS! <PORT3>> 
NOTE RTED ORDER OF PORT 3 AND PORTY 
030540 IMM, ERC 
03054 aye 35 poeta MM! <ERC3&377>> 
p3peue MEM IMM AP RCL i ;ASSUME WRAP AROUND CASE 
000333 MIC =M thn 
o30S42 002424 REN! MM!<RCL1>> 
030544 mathe. Rice Ee, RCL? ;GET ADDRESS OF END OF CAHIN AREA 
030544 o0046e2 ROVE! 2 
030546 ;CHECK FOR END 
000335 sieocanrEbe? 
030544 060360 <SUBTC! BR! SPO> 
030550 Z INS1 ;IF EQUAL BRANCH 
000336 nICPC=MICPC +1 
030550 101663 < JUMP! ZCOND! < INS12-INIT&3000#4> ! < INS12-INIT&777/2>> 
030552 BRWRTE IMM.S ;CALCULATE ADDRESS OF NEXT LINK 
000337 nICPCeMI PCt1 
o30SSe oo040s (MOVE! WRTEBR! IMM! <S>> 
030554 MEM ADD! SPO ; 
000340 nICPcsHt pt+1 
030554 O62400 (MOVE ! WRMEM! BR! <ADD! SPO>> 
030556 ALWAYS INSi2 ;EXIT 
000341 MICPC=MICPC+1 
930556 100663 < JUMP! ALCOND i <INS12-INIT&3000%4> ! <INS12- -INIT&77772>> 
0305 RAL: BRWRTE IMM, 35 ;MASK TO CLEAR CLR ACTIVE 
000342 SR OPCEMICPCh i 
030560 000757 (MOVE! WRTEBR! IMM! <357>> 
030562 SPBR AANDB, SP10 ;CLEAR BIT IN LINE STATUS WORD 
000343 MICPC=MICPC+1 
030562 063670 <MOVE ! SPBRX! BR! AANDB! SP10> 
030564 BRSHFT 
000344 MICPC=MICPC+1 
030564 001620 <MOVE ! SHE TBR? MRTEBR! SELB? 
030566 BRY FLUSH 


000345 MICPC=MICPC+ 
O3G56&6 107015 < JUMP! BRYCON! t <«FLUSH-INIT&3000#4> ! <FLUSH-INIT877772>> 


2 
B 


Le Lee Lee Sr 


. MAC 


030870 
a 
aa 


030$74 
030876 


0305876 


18-JAN-78 16:05 


Bo0408 
be3232 
000350 
000427 


000351 
1044eS 


CO? 
RBASRV--RECEIVE BUFFER ADDRESS SERVICE 
RA3: BRWRTE IMM,O 

CpOVE OA EB rs so» 


Micecentertsi 
<MO TOPX! BR! SELB! SP13> 
STATE R Ve 


Cc 
MICPC=MICPC+1 


ALWA 
< CPC=MICPC+1 


Pree ee B5R8" 


;CLEAR BR 
;SET NUMB MESSAGE TYPE IN SP13 


;CHANGE RECEIVE STATE POINTER TO STATE 6B 
i ad} IMM! <RCVB-INIT&77772>> 


SOME? ALCOND! <REXIT-INIT83000%4> ! !<REXIT-INIT&77772>> 


(1) 


~-@ 
ee 


fore rer 3 
WES SVS SNS Te 


— Oe p— Fe be (= Ul = UT = UT UT 


ee eee Me 


o--0--o-- 


030624 
030626 


030626 
030630 


b30e32 


030632 
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800760 
008353 
le3ee0 
000354 
061311 
000355 
100630 
000356 


120600 


000357 
102047 


070 38e 
b00404 


000362 
114657 
000363 
000720 


000364 
110554 


ba078? 
000366 
063270 


000367 
104S04 


DO? 


RBASRV--RECEIVE BUFFER ADDRESS SERVICE 


PEl: 


tBu: 


bvrRUN: BR 


HEH1: 


ACK1: 


micecat ag 300 
MOVE? TAF C Bet ree «2002 > 
I UBBR , SPO 


SF , 
MICPC=M cec+h 
VE! X? TBUS! UBBR! SPO> 
<AORB! OBR> 


ou 
psa 
ROVE :URQUTX!BR! <AORB! OBR> » 


Ss 
=M 
MT CMP TAL COND! <PINT2-INIT&3000#4> ! <PINT2-INIT8777/2>> 


;READ BR CONTROL REG 


; INTERRUPT 


BRWRTE EBYS NPR 
MICPC=MICPC+1 
coo a a ee 
P 
<JURPLBRGCON! « IDLE- -INIT&3000#4> ! <IDLE-INIT&777/2>> 


2 
=M 
Pair AL OND! <EC2- INI T&3000#4> ! <EC2-INIT&77772>> 


Piere TTA eet nec 
3t <NTRSO-INITS3000%4> ! <NTRSO-INIT8777/2>> 
ST ard 


CMOVE: WRT BA In cTEON-INITB777/2> > 


=MICPC 
Ries COND! <XEXIT-INIT83000%4 ! §<XEXIT-INIT&77772>> 


fs Uae ae 
eerecaiae ! AANDB! SP 10> 


ALWAYS 
ATCeCeM MICPC+1 
< JUMP! ALCOND! <RDS-INIT&3000#4> ! <ROS-INIT&77772>> 


;MASK FOR INTERRUPT AND VECTOR 


PAGE: 
SE 


00810 
@ 0081 


©--O--0--0--0-~-O-~-0O--—@--0--oM 
we Uwe ee Lee We eee es OW 


= t= CO = = C= = CD 


AO--7-00--0--0--0--0-- 
wwe We Ye Ne eR ww 


— Dee 
~QMoewrww 


EO? 
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. MAC 18-JAN-78 16:05 RBASRV--RECEIVE BUFFER ADDRESS SERVICE SEG S62" 
030654 Ot) be | 
000377 MICPC 


PC= 
im gg 2 ed By TO HANDLE FIRST DOCMP CHARACTER 
D ThE OoP 


L 
iDETERR NES IF MESSAGE TYPE IS NUMBERED, UNNUMBERED OR BOOT 
BUS REVOAT, SP glares FOR Ree OF MESSAGE. 


030654 RCVA: READ RECEIVE CHARACTER TO SPO 
000400 MICPC=MICPCs sa 
030654 0623200 SPX? TBUS! RCVDAT! SPO> 
030656 A'SPi ;READ PORT STATUS WORD 
000401 MICP sn] mreptal 
030656 060601 <MO WRTE 'BR! <SELA!SP1>> 
30660 BRO S ;IF INIT MODE---ONLY BOOT OK 
02 m CPC=MICPC+1 
030660 106012 UMP ON! (S$-INIT&3000#4> ! <S$-1NIT8777 “2 
BR ;IF BOOT MODE---ONLY BOOT OK 
000403 MICPC sHICPCe 
30662 107412 < JUMP! CON! <S$-INIT&SO00#4> # «S$-INIT8727/2) 
OS pees BRWRTE ase 201 ;SOH TO BR 
000404 MICPC=MICPC+1 
030664 000601 <MOVE ! WRT BR! IMM! <201>> 
030666 CMP SPO ;COMPARE BR TO SPO 
p00405 MICP anicrcel 
030666 360 <SUBTC! BR! SPO> 
030670 2 RA ;IF EQUAL-IS NUMBERED MESSAGE 
000406 MICPC=MICPC+1 
030670 101742 < JUMP? ZCOND! <RAL-INIT&3000#4> ! <RA1- SINIT8777/2>> 
030672 BRWRTE IMM.S ;ENQ TO BR 
000407 MICPC=MICPC41 
030672 oo0040S (MOVE! WRTEBR! IMM! <S>> 
030674 CMP SPO ;COMPARE ENQ TO SPO 
000410 MICPC=MICPC+1 
030674 060360 <SUBTC! BR! SPO> 
030676 2 ;IF EQUAL-IS UNNUMBERED MESSAGE 
000411 MICPC=MICPC+1 
030676 105424 < JUMP ! ZCOND! <RA2-INIT&3000#4> ! <RA2-INIT8&77772> > 
S$: BRWRTE IMM.220 ;OLE TO BR 
000412 mICPC=MICPctt 
030700 900620 <MOVE ! WRT BRE IMM! <220>> 
030702 CMP SP ;COMPARE DLE TO SPO 
030702 beo3b0 nIcpcanTCr ess 
030704 Z Boor’ :IF EQUAL IS BOOT 
000414 NICPC=NICEC+ | 
030704 115760 < 1 ZCOND! <BOOT-INIT83000#4> ! (BOOT INIT877772>> 
030706 FLUSH: OUTPUT IMM, <200!0RCVCO> LUSH INPUT SILO 
000415 MICPC=MICPC41 
030706 002212 <MOVE ! WROUT ! IMM! <200! ORCVCO> > 
;(LOW ORDER BITS READ ONLY) 
030710 RSTATE RCV a :SET STATE TO RCVA 
000416 MICP C=MICPC 
030710 0400 <MOVE ! SPOR! IMM! <RCVA- INIT&777/2> > 
0417 mIcPceh MICPC+1 
030712 063223 <M OVE! SPX!BR!SELB!SP3> 
030714 BRURTE IMM, 357 :MASK TO CLEAR--CLEAR ACTIVE 
oo0420 MICPC=MICPC41 


FO? 


PAGE: O00830M 
DMCGAL . MAC 18-JAN-78 16:05 RCVA--ROUTINE TO HANDLE FIRST DDCMP CHARACTER Seo 0083 
(1) 030714 000757 <MOVE!WRTEBR! INH! <357 >» 
897 030716 * Rice BR, RRANCE, SP10 ;IN LINE STATUS WORD 
(1) o30716 e32%0 ASVET SPX? BR? AANDB! SP10> 
898 0307 FLUSHA: NOP BR, INCA, SP10 ;CLEAR “C” BIT FOR TIMEO 
(1) 930720 960076 Aah 
838358 ALWAYS +fmeo :SEE IF WE CAN SEND AN ACK 
(1) oo0042 MICPC=MICPC+1 
(1) 03072e 11066 State REV <TIMEO-INITS3000#4> ! < TIMEQ-INIT877772> > 
3900 0307 RA2: STATE v :CHANGE RECEIVE STATE TO I 
(1) oo0424 MICPCsMTCPC st 
(1) 030724 000703 <MOVE !WRTEBR! IMM! <RCVI-INIT8777 72> > 
901 030726 REXIT: SP BR, SELB, SP3 
(1) 000425 MICPC=MICPC+1 
(1) 030726 063223 (MOVE ! SPX! BR! SELB! SP3> 
902 030730 ALWAYS IDLE 
(1) 000426 MICPC=MICPC+1 
(1) 030730 100447 < JUMP! ALCOND! < IDLE-INIT&3000#4> ! <IDLE-INIT8&777/2>> 





GO? 


PAGE: _Od84o 
CHARACTER OF COUNT FIELD £0 coe 
--ROUTINE TO HANDLE FIRST CHARACTE 
sagpeactiacss ak eanstn: Fa Noe a BRT RCVB--ROUTINE TO HANDLE FIRST CHARACTER OF COUNT FIELD 
D FROM IDLE L 
a0 TETORES COUNT FIELD AND SETS UP RCVC AS NEXT STATE 
ee 030732 RCVB: | RCVDAT, SP ;READ CHARACTER TO SPY 
309 030732 serait tRCVDAT! SP4> CURRENT BA 
(3 o30732 888364 eon ;LOAD MAR WITH ADDRESS OF 
910 030734 7 
(1) 30734 a?02i8 nisrerT Bac Ren Par cSELALSes B=; READ THE FLAGS BYTE 
? =MICPC+1 
1 30736 Os4620 “HOVE! UR Pr MENM: INCHAR? <SELE?? ouFFER IS ASSIGNED 
(1) 
? 
CP pagrag e388 SRT pismo BE ITE Ben - mun rm 
(1) 
a 
a1) a poet “HOVE! URTEBR IBR!<SELA!SPL>> YES 
a ; 
i oo MICPC=MI <RB3-INIT8777 22> 
) 000434 a SOON? <RB3-INIT&3000%4> ! N CODE 
2 gaprig erm scree PP MAI 
ap 03074 bo07i6 <nOVE Eee meio» ;ADDRESS CUMULATIVE COUNTER 
$16 030750 L nxcpct 
(13 030750 — en frm cnt. s8377>> ;SEND A NAK 
pw are4 ees 3¢RHS-INITS300084> | RES NT OR NO BUF ASSIGNED IN MAINT MODE 
1) guorse YONsEE mo: SO 
) 0440 . BR! IMM! <2>> : Ps 
i Cee = re ee 
(1) 930756 e3301 cROVE! roe 
RB1: 
940 030760  aoo44e <ROVE  URTEBRE THM! <RCVC- INIT8777/2>> 
$21 030768 8 pam RIC I 
1) 30752 Bedees cnOvE cua ites ‘SELB! OBA1> ;OUTPUT LOW ORDER BYTE OF ADDRESS 
922 030764 Rice Poon cert 
(1) 030764 Osbeee ve! Ser RTS SPEEESS ur HIGH BYTE OF ADDRESS 
030766 . 
fe 930766 bad niece UASUT Bus UdeR, SPO FREAD THE BUS REQ REGISTER 
Ky 1 
— MERI tg ose acer a Bu 0 WO VEC BT 
(1) SRUR ; 
$eS 03077 SRCPCEMIGPCd 1 
) 000447 'WRTEBR! IMM! <101>> 
(1) 03077@ 000801 CRONE Sn 


oe 


HO? 


7 PAGE: ogesom 
OMCGAL . MAC 18-JAN-78 16:05 RCVB--ROUTINE TO HANDLE FIRST CHARACTER OF COUNT FIELD Sea 
326 030774 ooo miceee ue ie ;AND SAVE IN SPO 
) = 
(1) 774 326 AANDB! SPO> 
? 83955¢ SP spss ;MASK TO ISOLATE EX. MEM BITS 
th) 030776 eee ee 
_ . > 
ghg ;NOTE THIS REALLY WRITES A 305 BUT THE 
329 :S GETS SHIFTED OUT 
830 031000 BRWRTE MEMX, AANDB!SPS :MASK ALL BUT EX. MEM BITS 
Ch) 1 oobeEs pec ia <AANDB! SPS> » 
$3} §3} MF all ;SHIFT THEM INTO THE CORRECT POSITION 
(1) 000453 MICPC=MICPC+1 
(1) 031002 001620 <MOVE ! SHF TBR! WRTEBR! SELB> 
25 S310 ove, Bree arcece 
2) 031 101620 ROVE SHFT TSR! WRTEBR! SELB> 
933 1 BRS 
Ch) 1 soos Mae O ET SHE TOR! WRTEBR! SELB> 
$34 831898 BROMET 
(1) 03101 ate “HOVE ! SHE TOR! WRTEBR! SELB> 
935 B3io1e PBY: OUT BR AORB! OBR ;WRITE EX MEM BITS OUT 
(1) 000457 nICPC= 1CPé+1 
(1) 031012 061311 <OVE1HAGUTX#BR! (AORB! OBR> > 
ree] amped 6 M Sete PE 
(1) 031014 peers rierern €OND! < IDLE- -INIT&3000#4> ! < IDLE-INIT8&777/2>> 
937 031016 RB2: ALWAYS = 
(1) 031016 rate RIcpceMIChCey 2-INITS *4> ! <I2-INIT&77772>> 
938 RTE RCV “ROUTINE 0 HANOLE SECO OHO CHARACTER OF COUNT FIELD, SELECT AND FINA 
3 ENT E D FR 
940 TS SELECT eo FINAL 
gut pate S FOR COUNT TOO LARGE 
943 031020 Rcve: ° 
945 031020 ALWAYS scei" s"CALL™ SELECT/@SYNC SUBROUTINE 
(1) 000462 MICPC=MICPC+1 
(1) 031020 104756 < JUMP ! ALCOND! <SELQSY-INIT&3000#4> ! <SELQSY-INIT38777/2>> 
950 031022 LDMA IMM, BC ;LOAD MAR TO BYTE COUNT 
(1) 000463 MICPC=MICPCH1 
(1) 031022 0610167 <MOVE #L t IMM! <BCB&377>> 
951 031024 MEMINC BR, SELA'SPY ;SAVE LOW BYTE 
(1) 1 natal nichcenrcectt MAR! BR! <SELA!SP4>> 
952 $31 B5e MEMINC PK 'SPS ;AND NOW HIGH BYTE 
(1) 000465 MICPC=MICPC+1 
(1) 031026 076605 <MOVE ! WRMEM! INCMAR! BR! <SELA!SPS> > 
953 031030 STATE RCVD ;SET NEXT STATE TO D 
(1) 000466 MICPC=MICPC+1 
(13 031030 000470 cMOVE LWRTEBR? IMM? <RCVD- -INIT8777/2>> 
964 0310 ALWAYS REXIT 
(1) 000467 MICPC=MICPC+1 
(1) oO31032 104425 <*UMP! ALCOND! <REXIT-INIT&3000#4> ! <REXIT-INITS7772>> 


I0?7 


PAGE: OOS60M 
DMCGAL . MAC 18-JAN-78 16:05 RCVD--ROUTINE TO HANOLE RESPONSE FIELD FOR NUMBERED MESSAGES SEQ 0086 

356 _SBTTL RCVD--ROUTINE TO HANDLE RESPONSE FIELD FOR NUMBERED MESSAGES 

958 031034 RCVD: STATE RCVE 

(1) 900470 MICPC=MICPC+1 

(1) 1034 2 (MOVE ! WRTEBR! IMM! <RCVE-INIT8777/2> > 

959 1036 RD2: SP BP, SELB, SP3 ;SAVE THE STATE 

{1} o31036 Beaded ea! Gy 

960 B31b50 SPBR IBUS RE T, SPO ; INPUT THE CHARACTER 

(1) 0472 MICPC=MICPC+] 

(1) 031040 3600 <MOVE ! ' IBUS! RCVDAT! SPO> 

961 031042 BRWRTE SUB! SP17 ;COMPARE NEW R TO LAST R 

(1) gsig4e Sear? nicecemiepest + <SUB!SP17>> 

962 631849 SRORTE RORNB! SPi ;IF NEW IS THE SAME OR LESS OR 

F gsiow Be8Eai Res coves 

963 631 Bue Sao ;MAINT MODE - GET OUT 

(1) 000475 MICPC=MICPC+1 

(1) 031046 107514 <JUNPIBRZCOR! <RO7-INIT&3000%4> ! <RD7-INIT8&77772> > 

964 1 BRWRTE SELA!SP10 

(1) 000476 MICPC=MICPC+1 

(1) 931050 060610 «MOVE !WRTEBR! BR! <SELA!SP10>> 

a spat 000477 ore ral +1 

(1) 0O310S2 001620 <MO 7 HE TSR? WRTEBR! SELB> 

966 031054 BRY IDLE 

(1) oooso0 MICPC=MICPC+1 

(1) 031054 103047 < JUMP! BRYCON! < IDLE-INIT&3000#4> ! < IDLE-INIT&77772>> 

967 031056 BRO ;MESSAGE IN PROGRESS 

(1) 000501 MICPC=MICPC+1 

(1) 031056 106110 ST CAPT BROCON?! <RD4Y-INIT83000*4> ! <RDY-INIT&77772> > 

968 031060 RD3: L Inet 1SP17 ;ADDRESS LAST ACKED IMAGE 

(1) go0s02 MICPC=MICPC41 

(1) 031060 O101 <MOVE ! LOMAR! IMM! <ISP178377>> 

969 031062 MEM BR. SELA'SPO ;COPY THE CHAR 

(1) 000503 MICPC=MICPC+ 

(1) 031062 062600 (MOVE ! WRMEM! BR! <SELA!SPO> > 

970 031064 RDS: LDMA IMM. REPST ;POINT TO REP THRESHOLD COUNTER 

(1) oo0so4 MICPC=MICPC41 

(1) 031064 0610003 <MOVE ! LOMAR! IMM! <REPST8377>> 

971 031066 MEM IMM. 1 ;RESET REP THRESHOLD 

(1) ooosos MICPC=MICPC41 

(1) 031066 002401 «MOVE! WRMEM! IMM!<1>> 

972 031070 RD6: SP IMM, 374, SP14 ;RESET THE COUNT 

(1) 000506 mIcpCanICrctl 

(1) 931970 003374 <MOVE ! SPX! IMM!374!SP14> 

973 03107 ALWAYS IDLE 

(1) 000507 MICPC=MICPC+1 

(1) 031078 100447 < JUMP! ALCOND! < IDLE-INIT&3000#4> ! < IDLE-INIT8777/2>> 

974 1074 RDY: TE BR,SELA!SPO 

(1) 000510 MICPC=MICPC+1 

(1) 031074 060600 (MOVE! WRTEBR! BR! <SELA!SPO> > 

975 031076 BRWRTE BR, SUBTC!SPle 

(1) 000511 MICPC=MICPC+1 

(13) 031076 060772 <MOVE ! WRTEBR! BR! <SUBTC!SP12>> 
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18-JAN-78 16:05 RCVD--ROUTINE TO HANDLE RESPONSE FIELD FOR NUMBERED MESSAGES SEQ 0087 
BR? IDLE | 
00051 MICPC=MICPC+1 
10344 alas Roe INIT&3000#4> ! < IDLE-INIT&77772> > 
000513 MICPC=MICPC+1 
104502 , CTUMP LAL COND! <RO3-INIT&3000%4> ! <RD3-INIT&777/2>> 
RO?: BRWRTE BR, SELA!SPO 
000514 SPOR CCMIEPO Ti 
060600 (MOVE! WRTEBR! BR! <SELA!SPO> > 
000515 cre MIEPOtL 
060372 (SUBTC! BR: SP12> 
000516 A icpcemrcpe+t 
105506 < JUMP! ZCOND! <RD6-INIT&3000#4> ! <RD6-INIT&777/2> > 
BRWRTE BR, AA!SP1O ; IF HDX 
900517 MICPC=NICE CS |. 
30 «MOVE! WRTEBR! BR! <AA!SP10>> 
o00s20 SR epCeMICPCeT ee Sa 
113705 CCA DRS CON: < TIME2-INIT&3000%4> ! ' < TIME2-INIT&77772> > 
ALWAYS IOLE 
o00S21 MICPC=M MICPC+1 
100447 < JUMP! ALCOND! < IDLE-INIT&83000#4> ! < IDLE-INIT8777/2>> 
.SBTTL RCVE--ROUTINE TO HANDLE N FIELD OF NUMBERED MESSAGE 
RCVE:  @RWRTE BR,SELA!SPI ;READ THE STATUS BYTE 
o00s22 MICPC=MICPCS +1 
060601 <MOVE! 'WRTEBR! BR! <SELA!SP1>> 
BR RCV a 
000523 MICPC=MICPC+1 
107716 < JUMP! BR7CON! <RCVQ-INIT&3O00%4> ! <RCVO-INIT8777/2> > 
BRURTE 1BuS RCVDAT ; INPUT THE CHARACTER 
oo00s24 MICPC=MICPC+1 
020660 (MOVE ! WRTEBR! IBUS! <RCVDAT> > 
CMP SP11 
000525 MICPC=MICPC+1 
060371 ¢SUBTC!BR:SP11> 
oo0s26 Aicpc=nre +1 
105531 < JUMP! ZCOND! <S$-INIT&3000#4> ! <S$-INIT&777/2>> 
SP BR. DECA,SP13 ;FORCE MSG TYPE TO -1 
909527 MICPC=MICPC+1 
063173 <MOVE ! SPX! BR! DECA! SP13> 
ALWAYS RE2 
000530 MICPC=MICPC+1 
104532 pring ' <RE2-INIT&3000"4> ! (REZ -INIT&777/2>> 
S$: SP RA LNCn, 11 UPDATE R FIELD 
060531 MICPC=MIC 
063071 <MOV SVE! SPX¢BR# INCA! SP11) 
RE2: STATE ;NEXT RECEIVE STATE IS F 
900532 RicecaMrcPe 
0534 <MOVE £ ee ew INIT&77772>> 
000533 MICPC=MICPC+ 
104425 OTOMP AL COND! <REXIT- -INIT&3000%4> ! <REXIT-INIT8777 72> > 
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.MAC 18-JAN-78 16:05 RCVF--ROUTINE TO IGNORE ADDRESS S£0 0088 
.SBTTL RCVF--ROUTINE TO IGNORE ADDRESS 
031144 RCVF: SP BR, DECA, SP4 ;DECREMENTLOW BYTE OF COUNT 
gogs34 MICPC=MICPC+1 
1144 164 <MOVE ! SPX TBR! DECA! SP4> 
1146 "4 veo ;NO OVERFLOW 
000535 MICPC=MICPC+1 
031146 105137 < JUMP! CCOND! <RCVFO-INIT&3000#4> ! <RCVFO-INIT&77772> > 
il SP ‘ :OVERFLOW - DECREMENT HIGH BYTE 
900536 MICPC= rSixten 
031 150 165 <MO TBR! DECA! SPS> 
1152 RCVFO: STATE  RCVG 
000537 MICPC=MICPC+1 
031152 000542 <MOVE ! WRTEBR! IMM! <RCVG-INIT8&77772> > 
1154 RCVF1: NOP I RCVDAT, 0 ; INPUT CHARACTER - AND DISCARD 
sf go0s40 MICPC=MICPC+] 
031154 0200 <IBUS! RCVDAT ! 0> 
031156 ALWAYS REXIT 
000541 MICPC=MICPC+1 
031156 104425 < JUMP! AL EOND! <REXIT- -INIT&3000%4> ! <REXIT-INIT877772>> 
*SBTTL RCVG--ROUTINE TO IGNORE CRC1 
031160 RCVG: éraTe RCVH ;NEXT STATE IS RCVH 
ooo0s42 MICPC=MICPC+1 
031160 000544 <MOVE ! WR WRTEBR! IMM? <RCVH-INIT8777 72> > 
11 ALWAYS RCVF1 
o00s43 MICPC=MICPC+1 


O31i62e 104540 < JUMP! ALCOND! <RCVF 1-INIT&3000#4> ! <RCVF L-INIT&777/2>> 
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RCVH--ROUTINE TO HANDLE CRC2 AND TO DISPATCH NUMBERED AND UNNUMBERFD TYPES 
.SBTTL RCVH--ROUTINE TO HANDLE CRC2 AND TO DISPATCH NUMBERED AND UNNUMBERED TYP 


RCVH: 


RHS: 


4 

SP can ABxS RCVDAT, SPO ;GET CHAR IN SPO 
<MOVE ! SPX! IBUS! RCVDAT ! SPO> 

SRURTE> TBUS-RCVEON ;READ RECVR CONTROL REGISTER 


RIGS on: cairuntasys 
‘ Ht IF BCC MATCH SET CRC IS GOOD 
= 
Une! BASCON! <TDONI-INIT83000%4> ! <TDON1-INIT8777/2>> 
SELA!SP1 SREAD STATUS BYTE 
PHSRE TOME ot cse.arsPi> 
BR on oe ;MAINT MODE 
+ 
< Ceceniche  RHX-INIT&3000%4> ! <RHX-INIT8777/2)> 
SRURTE OB, “Seta! AYP io "READ PORT STATUS WORD TO BR 
MICPC=MI 
<MOVE ! WRTEBR! DP! <SELA!SP10>> 
BRSHFT 
MICPCoMICPC# 1 
(MOVE ! SHETBR! WRTEBR! SELB> 


pre ; IF START MODE--PROCEED TO RESEND START 
ICPC=MI PC+ 
< JUMP! eae ae -INIT&3000#4> ! <SNAK1-INIT&77772>> 


MEM BR, SELA!SP17 ;RESTORE LAST ACKED IMAGE 
mas GUAR ns <seLassei7>» 
Ricre Easel i 1 ;WRITE HEADER BCC ERROR SUBTYPE 
= 
< ' ESRt IMM! <301>> 
(BRA 1A NHDS ;ADDRESS CUM ERROR COUNTER 
a HOVE?L. ay te 8377>> 
EP SE is tees ;WRITE IT TO SPO 
Ricpcanicrcs NER? SELB! SPO> 
nye ; INCA! SPO ; INCREMENT IT 
nove? 1 ERIER! CINCAYSPO> 
COMA IMM ;LOAD ADDRESS OF TYPE FIELD 


MIC ni, cect 
MM! <1T8&377>> 
ee a ;WRITE NAK TYPE 
NCMAR! IMM! <2>> 
nice di eRe MSELB ;WRITE NAK SUBYTPE FIELD SUBTYPE 
SVE? CARH? Be: <seLe>> 
IMM, NAKST 


(OM aA ;ADDRESS NAKS TMTED DYNAMIC 
MICPC=MICPC41 


: 00890 
SEQ 0089 


SP17 ;ELSE BCC ERROR--POINT TO IMAGE OF SP17 IN RAM 
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.MAC 18-JAN-78 16:05 RCVH--ROUTINE TO HANDLE CRC2 AND TO DISPATCH NUMBERED ANDO UNNUMBERED TYPES SEQ 0090 
coy 'LDMAR! IMM! <NAKST&377> > 
831558 ween AT Lon MX, SELB ;WRITE IT TO BR 
0312 pabeSe enc ae 
0312 BSHF TB ;SHIFT IT RIGHT 
nates MESVE! ob Sat LB! BR> 
831535 M P5 7 ;UPDATE IT 
esa nicecemicecel §<SELB>> 
i832 7 N SAFC ;BRANCH IF THRESHOLD EXCEEDED 
000571 MICPC=MICPC+1 
031236 116252 < JUMP! ON! <NTHRES-INIT&3000%4> ! <NTHRES-INIT&777/2> > 
031240 AL HaYS 
000572 MICPC=MICPC41 
031240 114700 < JUMP! AL COND! <SNAK-INIT&3000#4> ! <SNAK-INIT8&77772>> 
031242 RH3: BRWRTE <DECA! SP13> ;LOAD TYPE RECEIVED--DECREMENT ING 
031242 Seoess MASE TUATL cl ems comprar arise) 
031244 2 RH ;IF ALUOUT IS ALL ONES IS NUMBERED MSG 
000574 MICPC=MICPC+1 
031244 115456 < JUMP! ZCOND! <RH1-INIT&3000#4> ! <RH1-INIT&77772>> 
031246 im ROTATE RCVA - 
031246 805808 <HOVE THR TEER Ri nm: <RCVA- INIT&77772>> 
1 0632 <MO zSPK ER! > 
631529 ad SHUNTE Rise bP éBt 3 ;LOAD LINE STATUS WORD IN BR 
000577 SROECEMIGP EST 
931 060610 <HOVE! WRTEBR! OP! <SELA!SP10 > 
1254 BRY 
000600 BR pcemrcPeri 
931254 117024 as C TOME! BRICON! <FLUSHI- INIT&3000%4> § <FLUSH1-INIT&77772>> 
031256 js . Rreee T, os ;SHIFT RIGHT 
031256 rept <HOVE! rokerga *WRTEBR! SELB> 
0006 ICES Pees 
1 107 UMP ! ON? < L1O$-INIT&3000%4> ! < 10$-INIT&77772>> 
631529 su Hi can th, PTR ;ADDRESS TYPE TABLE 
031262 nya HOVE? spre! tam! <TYPTAB8377>> 
031264 CMP <MEMX! INCMAR> , SP13 
000604 MICPC=MICPC+1 
031264 054373 <SUBTC! MX? INCMAR! SP13> 
031266 2 
000605 MICPC=MIC p41 
031266 115402 <JUMP! ZCOND? <REP-INI T83000%4> ! <REP-INIT&77772> > 
031270 ¢ it nen !INCMAR> , SP13 
= 
93127 B84373 Gare Ef! Incnan!sP13 
000607 f cPCaMICPC+! 


1272 115426 < LBP § ZCOND! SNK NIT&3000#4> ! <NAK-INIT&77772>> 
Bai 74 . 108: (OMA IMM,T STF ;SET POINTER TO START TYPE 


RCVH--ROUTINE TO HANDLE CRC2 AND TO DISPATCH NUMBERED AND UNNUMBERED TYPES 


18-JAN-78 16:05 


DMCGAL . MAC 


!<TYPSTT&377>> 


NCMAR> , SP13 
NCMAR ! SP 13> 


~ 


;STACK TYPE 


§<START-INIT&3000#4> ! <START-INIT&77772>> 


5.58 85 


EVOEVNEL 


RR 


83 3 3 


ant 
o~~o 


<MEMX! INCMAR> 


,SP13 


MX! INCMAR! SP 13> 


ACK-INIT&3000#4> ! <STACK-INIT&77772> > 


;ACK TYPE 


; OTHERWISE IGNORE--MUST BE OBS MSG 


-INIT&3000#4> § <ACK-INIT&77772>> 
<< IDLE-INIT&3000#4> !< IDLE-INIT&77772>> 


! INCMAR! SP13> 
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18-JAN-78 16:05 RCVH--ROUTINE TO HANDLE CRC2 AND TO DISPATCH NUMBERED AND UNNUMBERED TYPES beg base" 
RCVCK: SPBR 1BUS RCVCON, SPO ;READ RCVR CONTROL CSR 
Reet MHOVET SPS i *RCVCON! SPO> 
; BRURTE My f, ADD! SPO ;SHIFT LEFT 
Seosae en HUATEBR EO: cA00!SPO> 
000622 nICPC=N 
103451 ON! «I1- -INIT&3000#4> ! <I1-INIT877772>> 
000623 freer 
110402 < JUMP? AL eB; INITS3Q0084> # '<TAL- INIT87777 »> 
; seeeneennenesetnal] at io § CHANGE WITH AT CARE SHRHRERERESEEEE ER EEEE 
. SBTTL VKO1--ROUT TO HANDLE inst BYTE 500 RECEIVE 
RCVKOL: SPBR I NPR, Sea Ne ;READ NPR REGISTER 
000624 MICPC=MICPC+ +1 
123600 <MOVE ! RX? IBUS! NPR! SPO? 
ative aire St ON? < INIT OO#4>*<IDLE- vIn BUT A 
io a ya oe A CHAR 
000626 RuchCan 
022203 i havens <RCVDAT ! OUTDA2> > 
sey 
000627 MICPC=MIC 
000672 HOVE! WRTEBR? IMM! <RKE1- -INIT877772>> 
RCVKO2: SP SELB, SP3 ;SET STATE 
0630 MIC =M 
3223 : iSELB:SP2> 
SRURTE rn 221 
000631 MICPC=MICPC+1 
000621 <MOVE ! TEBR! IMM! <221>> 
ALWAYS 
000632 MICPC=MICPC+1 
104641 < JUMP ! ALCOND ! <RK7-INIT&3000%4> ! <RK7-INIT&77772> > 
.SBTTL RCVKO--PROCESS ODD CHARACTER 
RCVKO: SPBR k , SPO ;IS AN NPR GOING 
000633 MICPC=MI 1 
123600 <MOVE ! SPBRX! IBUS! NPR! SPO> 
BRO TOLE ;IF SO, GO BACK TO IDLE LOOP 
000634 MICPC=MICPC+1 
102047 <JUNP! BROCON? < IDLE-INIT&3000#4> ! < IDLE-INIT&77772> > 
STATE CVKE 
000635 MICPCaMICPC #1 
000646 (MOVE ! WRTEBR! IMM! <RCVKE-INIT8&77772>> 
SP BR, SELB, SP3 ;SET STATE 
000636 MICPC=MICPC+1 
063223 <MOVE ! SPX! BR! SELB! SP3> 
OUTPUT 1BUS RCVDAT! OUTDR2 ;OUTPUT A CHAR 
000637 MICPC=MICPC+1 
022203 <MOVE ! WROUT ! IBUS! <RCVDAT! OUTDA2> > 
ional RKB: BRUR E, Inn 21 ;SET OUT NPR (C1) AND NPR REQ 
= 
Booaet SES OETWRTEBRE IMM! <21>> 
RK?: OUT BR. <AORB! ONPR> ;WRITE NPR REGISTER 


000641 MICPC=MICPC+1 
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MAC  18-JAN-78 16:05 RCVKO--PROCESS ODD CHARACTER i "8389" 
031356 061316 <MOVE! WROUTX! GR! <AORB! ONPR> > 
031360 WAYS E 
og64e MICPC=MICPC4+1 
031360 10044 ae < JUMP! ALCOND! < IDLE-INIT83000#4> ! < IDLE-INIT&777/2>> 
031362 SPBR 1BUS NPR, SPO 
43 nIcrc=t CPC+ 
031362 1 <MOVE ! x! IBUS! NPR! SPO> 
1364 STATE CVL 
000644 RICPCaMICPCs | 
031364 000720 <MOVE! TEBR? IMM! <RCVL-INIT877772) > 
1 ALWAYS VK 
000645 MICPC=MICPC+1 
031366 104630 « prs § <RCVK “ty > ielmeceleeceiianielmapthteithaital 
at VKE-- — EVEN BYTES 
031370 RCVKE: TE I NPR ;READ NPR CONTROL REGISTER 
000646 MICPC=mICPC+1 
931379 120600 <MOVE! WR § IBUS! <NPR>> 
137 i E 
000647 MICPC=MICPC+1 
031372 102047 < JUMP! BROCON! < IDLE-INIT83000#4> ! < IDLE-INI1877772> > 
031374 a RKS: SP a anomie ;READ LOW BYTE OF BA TO SP 
ee 
031374 este COVE T SPX! BUS! IOBA1!SPO> 
031376 OUTPUT DP, < INCA! OBA1> ;WRITE INCREMENTED BA 
031376 DeSbee MOVE! un ut? '< INCA! OBAL>> 
031400 RKSO: SP BR bea‘ aps ;DECREMENT CHARACTER COUNT 
o006S2 MICPC=MICPC+i 
031400 063164 <MOVE! SPX! BR! DECA! SP4> 
031402 . C seis oF ;NO OVERFLOW 
= 
031402 Opeser aires *< 10$-INIT&3000#4> ! < 10$-INIT8777/72> > 
031404 SP BR, DECA, SPS ;OVERFLOW - DECREMENT HIGH BYTE 
900654 MICPC=MICPC+1 
031404 3165 «MOVE! SPX! BR! DECA!SPS> 
031406 2 ;BYTE COUNT ZERO 
4 ice reaps: Hf: NIT #4>!<RL3-INIT&77772>> 
paid 10$: ouTPUT obs Pha vBAt SabAL> ;READ CHARACTER AND WRITE IT 
4 poss nicpcenrcrce! < AT!OUTDAL>> 
831418 S . Pega °Se8 ;READ INCREMENTED BA 
000657 MICPC=MICPC+1 
031412 023140 «MOVE ! SPX! IBUS! I0BA1!SPO> 
031414 on aan Re ¢ NCA! OBAI> ;WRITE INCREMENTED BA 
= 
031414 BeSBee <MO TST St hes cINCALOBAL>> 
031416 SP bs 1BUS oBA2 , SPO :GET BA HIGH 
031416 posted MOET eex? THUS! 10BAZ! SPO> 
031420 OUTPUT DP, <AC!OBR2> ; INCREMENT IF CARRY SET 
o00662 MICPC=MICPC+1 
031420 062107 <MOVE ! WROUT ! DP! <AC!OBR2> > 
031422 ICBA23 ;OVER FLOW 


C 
000663 MICPC=MICPC+1 
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PAGE: O0940M 
. MAC 18-JAN-78 16:05 RCVKE--HANDLE EVEN BYTES SES 0094 
031422 115016 SUMP ICOOND! « ICORED- ERE TRINNY? f SCRAED- INIT877772>> 
031424 ‘ RK3: E . ;DECREMENT THE COUNT OF BYTES 
= 
iy24 Besies ies SPX! C Selocca sew 
14 C ;NO OVERFLOW 
14 08e888 PIGS TOLERDS ae INIT&3000#4> ! <RK6-INIT&777/2>> 
14 SF BR 0 SPS ;DECREMENT HIGH BYTE OF COUNT 
1430 Beste’ PASCE TOP occa: srs 
14 ;BYTE COUNT ZERO 
67 Arc i 
931432 105643 GF <RLY-INITE3O00%4># <RLY-INIT877772>> 
4 RKB: 5 
000670 RICPESMICPCS ? 
9 14 000633 <MOVE 1WRTEBR! IMM! <RCVKO-INIT8777 72)? 
7 M =MI 
031436 PB0g 22 Bey ALE ONO! <REXIT- INIT&3000#4> ! <REXIT-INIT8777/2>> 
031440 RKE1:  §P 1BUS, NPR, SPO ;READ NPR REGISTER 
144 00805 MiSvErS ate NPR! SPO> 
831448 arnt att ;MASK FOR ALL BUT CO 
luy2 go0e77 MOVE! mucectt mM! <177>> 
1444 hoe RA ANDB bnPR> ;TURN OFF ALL BUT CO 
000674 MICPC=MI Pest 
031444 061270 <MOVE TAOUTX! BR! <AANDB! ONPR> > 
031446 teas RKSO 
000675 Ycec=Mre 
031446 i046S2 JUMP ! AL COND! <AKSO-1 INIT83000#4> ! <RKSO-INIT&77772> > 
, eHeeunseeobeEEESEND OF TIME CRITICAL PATHEMHHRSEHEHEEEEEAALEHES SHEREERERLARERS 
0314S0 RCVKEO: SP IBUS , RCVDAT, SPO ;READ CHARACTER AND SAVE IN SPO 
000676 MICPC=MICPC+1 
031450 023200 < VE 1 SPX? IE !RCVDAT! SPO> 
0314 ou Pes BR LA!OUTDAI> ;SEND NONSENSE CHARACTER 
000677 MICPC=MICPC+ 
0314S2 Ob22e0e <MOVE! T!BR! <SELA!OUTDAL>> 
0314S4 BRWRTE e SELA!SP1 ;READ STATUS BYTE 
000700 MICPC=MICP t+ 
031454 060601 <MOVE WR '<SELA!SPI1>> 
031456 BR p Re ;MAINT MODE - SEE IF RLD MESSAGE 
000701 ICPC=MICPC+1 
031456 117571 < JUMP! BR7CON! <PASWRD- INIT83000#4>  <PASHRO— -INIT&777/2>> 
031460 eaten aes RK ;OTHERWISE PROCESS NORMALLY 


MICPC+1 
031460 104664 < JUMP! ALCOND! <RK3-INIT&3000#4> ! <RK3-INIT8777/2>> 
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000703 
023213 


704 
706 


0007 
1044 


000706 
104756 


000707 
00711 


000710 
104425 


000711 
000403 


0007 12 
0603S 
pratt 

(07 
0007 14 
105140 


000715 
104471 
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16 


000716 
000534 


000717 
104S40 


RCVI--STORE UNNUMBERED MESSAGE TYPE 


RCVI: 


RCVJ: 


RCVR: 


RCVQ: 


E08 


.SBTTL RCVI--STORE UNNUMBERED MESSAGE TYPE 
SP 1BUS RCVOAT, SP13 ;STORE UNNUMBERED TYPE 
MICPC=MIC c+ 


MOVE ! SPX! IBUS! RCVDAT! SP13> 

STATE RCV A ;NEXT STATE IS J 

MICPC=MICPC+1 

«MOVE !WRTEBR! IMM! <RCVJ-INIT3&77772>> 

ALWAYS REXIT 

MIC =MICPC+1 

«J TALCOND! <REXIT-INIT83000%4> ! <REXIT- INIT&77772>> 

'SBTTL RCVJ--ROUTINE TO HANDLE SUBTYPE FIELD,SELECT AND FINAL 

nice Bsa ;"CALL” SELECT AND QSYNC SUBROUTINE 

RICECOMI 
ns eae ae ee E cSEL@Sy- INIT877772>> 

;NEXT STATE 1S N 


ric 
py ie EOP el amo. -INIT&77772>> 


nIcPcanTc 

pad ALCOND! <REXIT-INIT&3000%4> ! <REXIT-INIT&77772>> 
-SBTTL__RCVR--UNNUMBERED MESSAGE RESPONSE FIELD 
[ENTERED FROM IDLE LOOP 


brwaTe 1MM,3 ;REP MESSAGE TYPE TO BR 
,SP13 ;IS TYPE ACK OR NAK 


;NEXT STATE IS RCV@ 


RIMM! <RCVO- ~INIT877772>> 
##*£NOTE THIS INSTR DOES NOT CLOCK “C” 
F NOT IGNORE 


+1 ; 
RCVF 1- ~INETSSO00N4> ! <BEVE I -INIT&77772>> 
;D0 RANGE CHECKS 


NO! 

PC+1 

'ALCOND! <RO2-INIT&3000#4> ! <RD2-INIT&77772>> 
I, a4 +t te MESSAGE--NUMBER FIELD 


P 
OZVO 
Fut 3° 

A A 


A ;NEXT STATE IS ADDRESS 


RC 
CP 
a aS -INI1T8&77772>> 


PC+1 
COND! <RCVF 1-INIT&3000#4> ! <RCVF 1-INIT8777/2> > 


PAGE: 
SE 


0O9S0M 
Q 0095 


2 
. 


be 
ma 
com~) 


fu- RMR ORR mmm Re ORR mm beh be 


bere o- os i 
Bree rons Becta 


co 
33 
sialoiete 


mb be oe ee 


— 


~ 
NU a ee ee 
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: 


PAGE: O00960M 
.MAC 18-JAN-78 16:05 RCVL--PROCESS CRC3 SEQ 0096 
RCVL--PROCESS orca 
PATE - FROM I POLE Co 
031514 rcv.:  §PBR ;READ NPR CONTROL 
099720 MICPC=M a 
931 14% 1236 <MOVE ! : names 
1516 BRO DLE 
000721 MICPC=MICPC+1 
031516 102047 < JUMP! ON! < IDLE-INIT&3000#4> ! < IDLE-INI1877772>> 
031520 RL2: BRWRTE inet i76 ;MASK TO TURN OFF CO 
000722 MICPC=MICPC41 
031520 000576 <MOVE ! WRTEBR! IMM! < 176>> 
031 OUT BR, AANDB ! ONPR 
900723 MICPC=MICPC+1 
031522 1270 «MOVE ! WROUTX! BR! <AANDB! ONPR> > 
031524 as RL3: STATE RCVM 
031524 $055 5e <MO ROVE LHRTEBR IMM RCVM-INITB777/2) > 
031526 ALWAYS VF i 
000725 MICPC=MICPC+1 
031526 i04S40 < JUMP! AL COND! <RCVF 1- -INIT&3000#4> ! <RCVF 1-INIT8&77772> > 
ESS CRCY--END OF DATA MESSAGE 
lke Site “POLE: 00 
— SOEUE INTERUPT AND UPDATE RESPONSE 
- RC WRONG SEND NAK 
031530 Rcvm:  BRWR 1uBeR ;READ UNIBUS BR REGISTER 
000726 RICECOMT 
931530 120620 SMOVE! WR 1 0 
1 ERR ;NON-EXISTANT MEMORY 


000727 ShSreTDAaes 
031S32 11 1 Si! comeRR-INITS3000%4» CNXMERR SNA Re CHAR 





031534 SP are SRC AD CRC CHARACTER 
= 
031534 999280 Tere rSPx: Si RCVDAT! SPO? 
031536 nai: BRURTE s VCON ;READ RECEIVER CONTROL REGISTER 
031536 eet RiGPCsnre {revs ncvcow: 
031 BRO ;IF CRC GOOD -- PROCESS 
000732 MICPC=MIC as 
031540 116206 < JUMP! ON! <RCVM1-INIT&3000#4> ! <RCVM1-INIT877772> > 
031542 BRWRTE SELA! SP1 ;READ STATUS BYTE 
000733 MICPC=M 
031542 060601 CHOVE 1MRTEER! BR! <SELA! SP1> > 
031544 BR? ;CRC ERROR IN BOOT MODE - FLUSH 
000734 BR epcamIcrC+ l 
0354s 107746 < JUMP ! BR7CON! <RHX-INITS&3000#4> ! <RHX-INIT&77772> > 
1546 BRWRTE IMM, 302 ;DATA ERROR SUBTYPE 
000735 CnoVE TWATEBR? 
031546 0702 (MOVE! WRTEBR! IMM! <302>> 
031550 hice TS ;ADDRESS CUM ERROR COUNTER 
000736 , CPC=M =nrcpcht 
031550 010014 E!LOMAR! IMM! <NDATS8377> > 
0315Se ;SEND NAK 


aL CUR S _RHS 
000737 MICPC=MICPC+1 


GOS 


PAGE: 00970™ 
DMCGAL . MAC 18-JAN-78 16:05 RCVM--PROCESS CRC4--END OF DATA MESSAGE SEQ 0097 
4 031SS2 104560 < JUMP! ALCOND! <RHS-INIT&3000#4> ! <RHS-INIT$777/2> > 
ts b 031554 RCVMO: BRWRTE IMM,10 ;MAINT MESS ERROR 
(L) y Booaio Cnove ATG! IMM! <10>> 
1833 3ieee RCVM2: > IMM <<RTHRS+23> > ;POINT TO ERROR WORD 
(1) ssp Ol {7 Germ Brak bum! < <RTHRS+3>8377>> 
1224 631228 atl S ARCEXY ;GIVE FATAL ERROR 
(1) 74 = 
i 031560 00ac0F rie rE! RSET Tar Opa <RCEXY-INIT8777/2> > 
ENTE DF 
1867 ERE PASSHOR CHECKS TRIGGER THE BOOT ROM 
1 
1229 031562 a EMe: sOsIE, IBUS , RCVOAT ;READ THE CHAR 
(1) ogise2 Seoedd ROVE THATEBR? 1BUS! <RCVDAT> > 
1230 031564 ‘ C Pocenr ee ;IS IT A MATCH 
(1) Wy = 
is 031564 373 XG UBYcr er eels 
(1) 74 Z 
iB 031566 Opesda aire tps SEGRE ena-snarasooony sceng-1nt18777/2> 
1233 031570 RHX: RA!SPI !READ STATUS BYTE SHIFTED LEFT 
(1) 031570 Sebs2e Shove TOATESa! 1BR!<AAISPI>> 
1234 031572 BRY . ;DLE RECEIVED IN NORMAL MODE 
(1) 747 = 
2 =mcee << 10$-INIT BOOOHM> # 198° JNETBTT7 1B? 
1238 83} 55 . a i dare calieaalins ALREADY IN MAINT MODE 
(1 000750 + 
7 < JUMP! ALCOND! <F H-INITS300084 #<FLUSH- -INI18777/2>> 
1536 p3iese cubis 10S: SRURTE InN ies > ;MASK TO CLEAR ALL MAINT RELATED BITS 
1) corsrs BBbcEs ME OETUATESAL Lem! «165> > 
1237 031600 SP BR, AANDB, SP1 ;CLEAR THEM 
(1) 909752 MICPC=MICP creel 
ise Baleg2 Oe area eer a Beane: sr 
(1) 000753 MICPCeMICPCe 1 * 
hd 031602 104415 aaa < JUMP! ALC E<FLUSH-INITE3OOO#4> # <FLUSH-INIT8777/2) > 
(1) 000754 ; MICPC=MICPC+ +1 
(1) 031604 063164 <MOVE ! SPX! BR! DECA! SP4> 
tei OS1606 ng area A 
(1) 031606 Tppae nt Ta RONDE < IDLE- -INIT83000#4> ! <IDLE-INIT8777/2>> 
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. MAC 18-JAN-78 16:05 SELQ@SY--ROUTINETOCHECK SELECT AND QSYNC AND DIDOLE LINE STATUS WORD 
Ar te green ED oe Fi SELECT AND ave AND DIDOOLE LINE STATUS WORD 


PAGE: O0980M 
SEQ 0098 


Baebe? BY FIRST INSTR IN A RSTATE 
031610 SELQSY: ep ;READCHARACTERINTO SPS AND THE BR 
gaicig SSC Pe encom 
161 X VDAT! SPS> 
0316 ts ;SELECT SET?-- 
- 000757 PC=MICPE+1 . 
031612 107763 < JUMP! BR7CON! < 1S$-INIT&3000#4> ! < 1S$-INIT&777/2>> 
031614 S$: E AA! SPS ;SHIFTBR LEFT 
epgzee TOAEbn! 
031614 (MOVE ! WRTEBR! BR! <AR!SPS> > 
031616 . BR7 20$ ;FINAL SET? 
= 
031616 See aired BASESNt <20s- INIT&3000#4> ! <20$-INIT8&77772> > 
031620 ALWAY BR, INCA, SP3!PAGE1 
000762 MICPC=MICPC+ +1 
031620 164463 < JUMP! ALCOND! BR! INCA! SP3! PAGE 1> 
031622 iss: BRWRTE IMM, 200 ;SET OK TO SEND 
31622 eka NESE ICA TENS nent cenge> 
63 1e59 SP BR , SP10 ;IN LINE STATUS WORD 
000764 MICPC=MICPC+1 
031624 063310 <MOVE ! SPX! BR! RORB! SP10> 
eae 076 RYCeCShr Bos 
= 
031626 meee < tAL ONY <S$-INIT&3000#4> ! <S$-INIT8777/2>> 
031630 20S: BRWRTE TMM» 20 ; SETCLEARACTIVE 
\ 488 nov TMC Sat trots cen>> 
831639 ail Ric oa é98 ;IN LINE STATUS WORD 
te = 
031632 neat hove? SPX: os peal 
031634 ALWAY pert SP3! PAGE 1 
00077 nic snicrcs 
031634 164946 ONO! BR! INCA! SP3! PAGE! > 
031636 RTHRES: BRWRTE IMM,2 
000771 MICPC=MICPCI I 
316 000402 cMOVE LWRTEBR? IMM! <2) > 
316 ALWAYS E 
000772 MICPC=MICPC+1 
031640 114657 < JUMP! ALCOND! <ERRXX- INIT&3000#4> ! <ERRXX-INIT8&777/2> > 
031642 Ack: BRWRTE BR,AA!SP1O 
000773 MICPC=MICPCS 1 
031642 060530 <MOVE! WRT EBR!BR! <AA! SP1O>> 
031644 onanes ~ ACK 
9 1644 103368 nicPe: TBRSCON! <ACK1-INIT&3000*4> ! <ACK1-INIT877772> > 
1646 aa? LUSHA 
000775 SR epcamrcP C+1 
031646 107422 < JUMP ! BR7CON! <FLUSHA-INIT&3000#4> ! <FLUSHA-INIT8777/2> > 
16 ALWAYS IDLE 
000776 MICPC=MICPC+1 
031650 100447 < JUMP! ALCOND! < IDLE-INITS$3000%4> !< IDLE-INIT8777 72> > 
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SELGSY--ROUTINETOCHECK SELECT AND GSYNC AND DIODLE LINE STATUS WORD 
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PAGE: OQO1 M 
18-JAN-78 16:05 SEL@SY--ROUTINETOCHECK SELECT AND QSYNC AND DIDDLE LINE STATUS WORD SEQ ayaa 
031654 ,z1NIT+2000 
000777 MICPC=77 
.SBTTL TMTA--FIRST CHARACTER OF HEADER 
TTA: ° 
BRWRTE BP, AA'SPIO ;SHIFT LEFT 
001000 MICPC=MICPCs | 
060530 CMOVE! WRTEBR! BR! <AA! SP10>> 
BR7 R Vek 
001001 MICPC=MIC 
107620 — < JUMP! DRSCON! <RCVCK- INIT&3000#4> ! <RCVCK-INIT&77772> > 
BRWRTE BR,SELA!SP10 ;REREAD STATUS 
001002 MICPC=MICPC+ 1 
060610 VE! WRT RIBR! <SELA!SP10> > 
aR ;0K TO SEND? 
001003 MICP =MICPC+1 
113405 < JUMP! BR7CON! < TA2-INIT&3000%4> ! < TA2-INIT3877772>> 
TMTAG: ALWAYS Ii ;NO 
001004 MICPC=MICPC+ 
100451 C JUMP IAL COND! (11-INIT&3000%4> ! <I1-INIT877772>> 
TR2: Rie YN ;IF UNNUMBPENDING -- SEND IT 
001005 MI CeceMIc C+] 
112032 gu eee <NUMSYN-INIT&3000%4> ! <NUMSYN-INIT&777/2> > 
001006 MICPC=MICPC+1 
112410 < JUMP! BR BRICON! < 10$-INIT&3000%4> ! < 10$-INIT8777/2>> 
ALWAYS Tl 
001007 MICPC=MICPC+1 
100451 a CJUMPTALCOND! <I1- INIT&3000#4> ! <I1-INIT&77772>> 
BRSHF T 
001010 MICPC=MICPC+1 
001620 (MOVE ! SHF TBR! WRTEBR! SELB> 
BRY Il ;IF START MODE EXIT 
091011 MICPC=MICPC+1 
103051 CTUMP ! BRICONT < I1- INIT&3000%4> ! <I1-INI18&77772>> 
SYN ;IF LINE HAS GONE IDLE SEND SYN 
001012 MICPC=MICPC+1 
112432 «JUMP! BRICON! <NUMSYN-INITE3000%4> # (NUMSYNN-INIT8777/2>> 
LSE--START 0 SEND MESSAGE 
onthe TMTEXT: nicpeemree T™TB :STATE TO SEND COUN 
ppasee HOVE? TATE EGR! Ire <THTB- -INIT8&777/2>> 
001014 NICPCanICPC 
063222 ROVE 1 SPX?ER! SELB! SP2> 
BRWR BR.AA AR'SP1 ;IN PORT STATUS 
001015 RIcPC=NIeP 
060521 <MOVE! WRTEBR! BR! (AA!SP1>> 
BRY ;DLE RCV’D SET-IGNORE MAINT MODE BIT 
001016 MICPC=MICPC+1 
113021 CJUMP 2 BRICONS < 108- -INIT&3000#4> ! C105; INTIS 777722 
BRWRTE IMM WRITE DLE TO BR 
001017 MICPC=M mrepesi. 
000620 <MOVE !WRTEBR? IMM! <220>> 
Cc TMTAS ;MAINT MODE - SEND DOLE 


KO8 


DMCGAL . MAC 18-JAN-78 16:05 TMTA--FIRST CHARACTER OF HEADER 
(1) 001020 MICPC=MICPC+1 
(1) 031714 1110204 < JUMP ! CCOND! < THTAS-INIT&3000%4> # < TMTAS-INIT&777 72) > 
1321 031716 10$: BRURTE BR SELA! SP10 ;NUMBERED MESSAGE? 
(1) 901021 MICPC=MIC 
(1) 031716 I <MO THETEBR? BR! <SELA!SP10>> 
1322 031720 in BRO THTUN ;NO - BRANCH 
(1) 031720 112026 mires) ON! < TMTUN-INIT&3000%*4> ! < TMTUN-INIT877772> > 
1323 031722 BRWRTE HH 201 ; OTHERWISE SEND AN SOH 
(1) 001023 nICPCs =MICPC 
(1) 031722 000601 Pol IMM! <201>> 
1324 17 TMTAS: OUTPUT BR <SELB! TMTDAT> ;IN TMT SILO 
(1) 001024 MICPC=MICPC+ 1 
(1) 031724 062230 <MOVE ! WROUT! BR! <SELB! TMTDAT> > 
1325 031726 ALWAYS Ti 
(1) 001025 RICPCANICPCS 
(1) 031726 100451 < JUMP LAL COND! < 11 - -INIT&3000%*4> ! <I1-INIT&777/2>> 
1326 031730 TMTUN: TSTATE TMTI 
(1) 001026 MICPC=MICPC+1 
(1) 031730 900601 <MOVE ! WRT BR! IMM! <TMTI-INIT8777/2>> 
(1) 001027 MICPC=MICECS | 
(1) 031732 063222 <MOVE 1 SPX! BR! SELB! SP2> 
1327 031734 BRWRTE IMM S ;ENQ TO BR 
(1) 031734 BpaNee MhOVE TH ope treme <S>> 
1328 0317 ALWAYS TEGR: 
(1) 001031 MICPC=M 1epcs 1 
(1) 031736 110434 < JUMP ! ALCOND! < TMTAS-INIT&3000#4> ! < TMTAS-INIT&777/2> > 
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PAGE: 01020M 
.MAC 18-JAN-78 16:05 TMTA--FIRST CHARACTER OF HEADER SEQ 0102 
031740 NUMSYN: BRWRTE MODEM ;ARE WE STILL SENDING? 
001032 MICPC=MICPC+1 
031740 O20660 (MOVE! WRTEBR! IBUS! <MODEM> > 
031742 BRS 
1033 MICPC=MICPC+1 
031742 1620 <MOVE ! SHF TBR! WRTEBR! SELB> 
031744 BRY ;RTS SET? IF SO WE ARE--STALL 
001034 MICPC=MI 
031744 103051 June BRICON! <11- -INIT&3000*4> ! <I1-INIT877772> 
1746 WRTE IMM,3 ;MASK TO TU N OFFLINE IDLE 
174 900773 Ricre=micecty 1«373>) 
§315¢ sp B13 ;IN LINE STATUS WORD 
001036 MICPC=MICPC+1 
031750 063270 <MOVE ! SPX! BR! AANDB! SP10> 
031752 wih TSTATE TMTAL 
031752 pow oS a gee cra -INIT&77772>> 
104 nic =MIC 
031754 063222 'SPX! BR! SELB! SP2> 
031756 ve B E., ape if 
031756 oo41 Shove? HATEGR? IMM! <10>> 
031760 SELB, SP6 ;STORE IN SP6 
001042 Ricecs =MI pest +1 
031760 063226 MOVE! SPX! BR! SELB! SP6> 
031762 TMTAL: es DECA, SPE ;DECREMENT SYN COUNT 
001043 RICPC=NICHE 
031762 063166 <MOVE! X!GR#DECA SPE» 
031764 2 TMTEXT 
001044 MICPC=MICPC+1 
031764 111413 CTUNP 4ZCOND! < THTEXT-INTT&3OO0%4> # <THTEXT- -INI18&77772>> 
031766 our Lin < <1L!0TMTCO> WRITE SOM TO TMTR CONTRi 
001045 CP THIePp 
031766 O02011 OMOVE LWROUT? EMM! <1! OTMTCO> > 
031770 BRWRTE IMM 226 ;SYNC CHAR 
001046 MICPC=M MICPC41 
031770 O00626 <MOVE ! WRTEBRE IMM! <226>> 
031772 ALWAYS TMTAS 
001047 nIcecs =MICPC+1 
031772 110424 'ALCOND! < TMTAS-INIT&3000%4> ! < TMTAS-INIT&777 72> > 


OMCGAL . MAC 
1355 
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MO8 


TMTB--OUTPUT FIRST CHAR OF COUNT 
.SBTTL TMTB--OUTPUT FIRST CHAR OF COUNT 


PAGE: 


01030 
SEQ 0103 


DMCGAL . 
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1326 031774 
(1) 


(1) 


031774 Beare 


NO8 


TMTB--OUTPUT FIRST CHAR OF COUNT 


™T1B:  &§PBR BR, INCA,SP12 
MICPC=MICPC+1 
(MOVE! SPBRX! BR! INCA! SP12> 


; INCREMENT MSG NO 


PAGE: 01040M 


SEQ 0104 
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PAGE: 
MAC 18-JAN-78 16:05 TMTB--OUTPUT FIRST CHAR OF COUNT 56° A082 
031776 OUTPUT ®8R,SELB!OINDATI 
001051 MICPC=MICPC# I 
031776 O62220 ASVETHROUTIBR! «SELB! OINDATI>> 
032000 Loma BR SELA!SP16 ;GETPOINTER TO NEXT TMT LINK 
001052 MICPC=MICPC+1 
932009 07021€ MOVE tLDNAR! BR! <SELA!SP16> > 
MEMINC IMM ;WRITE MSG TMTED TO FLAGS 
901053 MICPC=MICPC i 
032002 O164 (MOVE! WRMEM! INCMAR! IMM! <3>> 
032004 oni MEMINC BR, SELA! SPI ie ;PICK UP MSGNO 
032004 tat SESUE  WAMEM? INCMAR! BR! <SELA!SP12>> 
032006 BRWRTE IMM, TMLS ;GET WRAPAROUND ADDRESS 
001055 MICPC=MICPCH I 
032006 000543 (MOVE! WRTEBR! IMM! <TML&> > 
032010 CMP BR, SP16 ; WRAPAROUND 
001056 MICPC=MICPC+1 
032010 060376 <SUBTC! BR! SP16> 
032012 Z TB2 
001057 MICPC=MICPC+1 
o32@C12 111504 < JUMP! 2COND! < TB2-INIT&3000#4> ! < TB2-INIT&77772>> 


CO9 


OMCG%. . MAC 18-JAN-78 16:05 TMTB--OUTPUT FIRST CHAR OF COUNT PAGE. g°4PBR" 
1368 032014 BRURTE IMM, 6 ;OFFSET TO NEXT LINK 
(1) = + 
(t) 14 BBASBE CASVET LAT t MM! <6>> 
1369 ib TBI: sp , SP16 ;UPDATE THE POINTER 
(1) 032016 O63016 ot 7 yy ar 
1370 032020 STAT *Re ;ADDRESS TMTR STATE 
(1) 001062 MICPC=MICPC+1 
(1) 032020 o00506 <MOVE ! WRTEBR! IMM! < TMTC-INIT877772> > 
1371 032022 TBO: SP SELB, SP2 ;UPDATE IT 
(1) 001063 MICPC=MICPC+1 
(1) O32022 063222 <MOVE ! SPX! BR! SELB! SP2> 
1372 032024 Our T <MEMX? INCMAR> , SELB! IBA ; WRI TELOWBY TEOF ADDRESS 
(1) o32024 < ' 'MEMX! INCMAR! <SELB! IBAL>> 
1373 032026 OUTPUT <MEMX!INCMAR>, SELB! IBA ;WRITE HIGH BYTE OF ADDRESS 
2 se2oes VA erg se 
1434 835858 sp MX SEB OP? aicH bef OF COUNT TO SP7 
(1) 001066 MICPC=MICPC+1 
(1) 032030 043227 <MOVE ! SPX! MEMX! SELB! SP7> 
1375 ;WAIT TO MASK OFF MEM EXT. BITS 
1376 032032 SP igus NPR, SPO 
(1) 001067 MICPC=MICPC+1 
(1) 032032 123200 <MOVE 1SPX! IBUS! NPR! SPO) 
135 vem: 1070 aree ben acti 
(1) 032034 ate <ROVE TUATE IMM! <220>> 
1378 032036 SP AANDB , SPO 
(1) 1071 MICPC=MICPC+1 
(1) 032036 3260 <MOVE ! SPX! BR! AANDB! SPO> 
1379 032040 sie ai i 1H | 300, SP ;MASK FOR MXT 
tie = 
(1) 032040 884906 SHOVE? SPX! MM! 300! SP6> 
1380 O3204e BRWRTE MEMX! INCMAR, AANDB! SP6 ;TURN OFF CC2 
(1) 001073 mICPC=HIC +1 
(1) o3204e OS4666 <MOVE ! WRTEBR! MEMX! INCMAR! <AANDB! SPE> > 
1381 032044 OUTPUT MX. SELB! TMTDAT ;ALSO WRITE COUNT TO TMTR SILO 
(1) p01974 MICPC=M + 
(1) o32044 30 < ROU 'MEMX! <SELB! TMTDAT> > 
1382 032046 BRSHF T :SHIFT BITS INTO CORRECT POSITION 
(1) 001075 mICPC=tl PC+1 
(1) O320% 001620 <MO 7 CHE TSR! WRTEBR! SELB 
: i, RF ePCAMICPC+ 
(1) o320S0 128 < ASVE ’ OE Rt WRTEBR! SELB> 
1384 032052 BRSHFT 
(1) 001077 MICPC=MICPC+1 
(1) O320S2 001620 <MOVE ! SHF TBR! WRTEBR! SELB> 
1385 032054 BRSHF T 
(1) 001100 MICPC=MICPC+1 
(1) 032054 001620 (MOVE ! SHF TBR! WRTEBR! SELB> 
1386 032056 OUT BR, AORB! ONPR 
(1) 001101 MICPC=MICPC+1 
(1) 032056 061310 <MOVE ! WROUTX! BR! <AORB! ONPR> > 
1387 032060 SPBR MEMX, SELB, SP& ;LOWBYTE OF COUNT TO SP& 
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PAGE: 01070M 
. MAC 18-JAN-78 16:05 TMTB--OUTPUT FIRST CHAR OF COUNT SEQ 0107 
001102 MICPC=MICPC+1 
032060 O4%36e26 < et H ABE 'MEMX! SELB! SP&> 
032062 
032062 arts Rye ence sh ame a oo sh <IDLE-INIT&877772>> 
0 
32064 TBe: - Par. IMM << TML1-TML8> 8377 ;GO BACK TOFIRST LINK 
Bete? po44oe <cnovE CATEba! IMM! << TML1-TML8>8&377>> 
10 RICeC=MTCRC+Y 
032065 ret < JUMP! ALCOND! < TB1-INIT&3000#4° ! <TB1-INIT8&77772>> 
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MAC 18-JAN-78 16:05 TMTC--OUTPUT SECOND CHAR OF COUNT SEQ 0108 
.SBTTL TMTC--OUTPUT SECOND CHAR OF COUNT 
032070 TMTC:  Q®RWRTE IMM,77 ;MASK TO CLEAR MXT BITS 
001106 MICPC=MICPC41 
93207 000477 CHOVE TURTEBR! In? <77>> 
7 SPBR ;CLEAR THEM 
001107 Mrepc=ntert | 
032072 063667 «MOVE! 7 ES 
032074 OUTPUT BP. <SELB! TMTDAT> ;WRITE TO TMT SILO 
001110 MICPC=MICPC+1 
93 062230 <MO tWROUT OP! <SELB! THTOAT> > 
STA MTD 
001111 MICPC=MICPC41 
032076 000513 <MOVE LWRTEBR? IMM! <THTO-INIT8777 72> > 
032100 ALWAYS 
001112 RICPCanTC ary 
032100 110554 < JUMP! ALCOND! <XEXIT-INIT&3000#4> ! <XEXIT-INIT&77772> > 
2SBTTL ee FIELD-NUMBERED MESSAGE 
032102 ™TD: STAT 
001113 MICPC=MICPC 
032102 000522 pOveTON Siam INIT8&77772> > 
032104 aeniail Arcee canrert A, SP6 ;ADJUSRT COUNT FOR TWO'S COMPLEMENT 
032104 063166 <MOVE ! SPX! tpEca! SPE 
032106 Cc x6R! ;NO OVERFLOW 
1 ett, MT CMBT COON: CT 2-INIT&3000#4> ! <TD2- ~INIT8777 
635198 SP BR beck SP7 DECREMENT HIGH BYTE OF COUNT 
001116 MICPC=MICPC+1 
032110 063167 (MOVE! SPX! BR! DECA! SP7> 
032112 Tbe: LDMA IMM, ISP11 ;RESP FIELD ADDR TO MAR 
001117 MICPC=MICPC+}_ 
032112 010171 «MOVE ! LOMAR! IMM ti? <1SP118377> > 
032114 TD3: OUTPUT MEM, SELB! TMTDAT ;WRITE IT TO SILO 
001120 mIcPCeM cPC+ +] 
032114 042230 <MOVE ! WROUT ! MEMX! <SELB! TMTDAT> > 
032116 aL WAYS XEX xiT 
001121 HICPC=NTC 
0321'6 110554 ALCON! « <XEXIT-INIT&3000#4> ! <XEXIT-INIT3877772> > 
oye ER FIELD--NUMBERED MESSAGE 
032120 TMTE: 
032120 om SP nt aeee NPR, SPO ;READ NPR CONTROL REGISTER 
032120 104256 era 
032122 ;BUSY - GET OUT 
001123 NICPC=MICPC+ 1 
032122 102051 CTUMP 1BROCON! < 1 1- =INIT&3000#4> # <I1- ~INIT8777 723» 
032124 ouTPY igus <INDAT1! TMTDAT> WRITE IT TO THE SILO 
001124 M epi c+ 
032124 O22010 <MOVE ! WROUT! IBUS! < INDAT1! TMTDAT> > 
enagu 112 RICPe=M CF +1 
032126 BB de53 CHSVES vt. INIT8&77772>> 
032130 TH 


ALWAYS 3 
001126 MICPC=MICPC+1 
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TMTE--NUMBER FIELD--NUMBERED MESSAGE SEQ 0109 


< JUMP! ALCOND! < TH3-INIT&3000#4> ! < TH3-INIT87772>> 
.SBTTL TMTF--NUMBERED MSG ADDRESS FIELD 


MICPC=MICPC+i 
<MOVE !WRTEBR! IMM! < TF1-INIT877772>> 
Pc LB,SPe 


;LOAD ADDRESS 
pen a? 


* < TMTAS-INIT&S3000#4> ! < TMTAS-INIT&777/72>> 
F1-NUMBERED MSG HEADER EOM 
;EOM MASK TO BR 


MM!<2>> 
LB!OTMTCO> ;UPDATE TMTR CONTROL REGISTER 


1 
i 
Ree 
PC=MICPC+1 
VE! TEBR! <SELBIOTNTCO>> 
PU <SELB? TMTDAT> ;OQUTPUT A GARBAGE CHAR 
cnovE TUR Pt+l 


!WROUT ! BR! <SELB! TMTDAT> > 
IIBAl ;READ LOW ORDER FROM INBA 


te 
Or 


+ 
VE!WRTEBR! IBUS! <IIBA1>> 
TMTF 1 ;IF ODD BYTE--BRANCH 
PC=MICPC+1 


UMP! COPE < TOF SEE TR RORONSD 8 THEE SRE PRE TEP? 


TURTESR! 
TWRTEBR! IMM! <THTH-INIT&777/2> > 
S XEXIT 


CPC=MICPC+1 
UMP! ALCOND! < XEXIT-INIT&3000#4> ! «XEXIT-INITS777/e> > 
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MAC 18-JAN-78 16:05 TF1-NUMBERED MSG HEADER EOM SEQ 0110 
pannnannseses) Oe, onit th Paty. poor y WITH GREAT CAR 
epert M H--R gu INE TO OUTPUT DATA CHA RACTES 
032160 one TMTH: Ricece iif IBUS, NP ce ;READ NPR CONTROL 
1 1 mcteemieenin 
835129 esc Ne ;IF NPR IN PROGRESS --BRANCH 
1 rz0eT OOP B ON < NIT83000#4> !<I1- ~INIT87777 >> 
835185 weer S$: sv ore cthoayt eaepaTs WRITE THE EVEN CHAR TO TMT SILO 
032164 022010 Cpove AGT '< INDAT1! TMTDAT> » 
32166 = Fi cocet 5) 1BA1,SPO ;READ LOW BYTE OF BA TO SP 
eis 
032166 88 {d8 hove? mucees als: 11e811sP0> 
032170 SuTPUT BR, < INCA! IBAL> ;OUTPUT INCREMENTED BA 
17 SEzoEs nicpcenrcresl '< INCA! IBAL>> 
83 17. SP WRe bECA rs ;DECREMENT CHARACTER COUNT 
001147 MICPC=MICPC+1 
032172 063166 HOVE? SPX? BR! DECA! SP&> 
032174 C TH ;NO OVERFLOW 
001150 MICPC=MICPC+1 
032174 111153 < JUMP! CCOND! < TH- INI T&3000%4> ! < THE-INIT8&77772> > 
032176 SP BR DECA, SP7 sDECREMENT HIGH BYTE OF COUNT 
001151 MICPC=MICPC+1 
032176 063167 <MOVE ! SPX! BR! DECA! SP7> 
032200 : £ ‘ en tet :BYTE COUNT ZERO 
932200 061 3eS TH Cy TOESND? ¢HEHI- INIT&3000%4> ! <HEHI-INIT8777/2>> 
g01359 Whe grape ape | 
938202 14 HOVE SWAT BR: IMM: CTHTHO-INIT&77772>> 
XEXIT: SP B, SP2 ;STORE NEW TRANSMIT STATE 
001154 MICPC=MI erase 
032204 063222 <MOVE SPX? BR! SELB! SP2) 
032206 aL WAY rab 
001155 BAEC oMI C+1 
932206 100451 sania < JUMP! ALCOND! <11-INIT&3000#4> ! <I1-INIT877772> > 
032210 SPBR IBUS , NPR, SPO ;NPR BUSY 
03221 exit EEe ls: tn meesenes 
635515 t 
001157 MICPC=MICPC+1 
032212 102051 < JUMP? BROCON! <I1- “INI TS3000%4)> ! <I1-INIT877772> > 
032214 THS: OUTPUT 1BUS < INDAT2! TMTDAT :0DD CHAR TO SILO 
001160 MICPC=MIC + 
32214 022030 <MOVE ! WROUT ! IBUS! < INDAT2! TMTDAT> > 
2216 SP 1BUS, IIBA1, SPO ;READ LOW BYTE TO BA 
001161 MICPC=MICPC+1 
032216 023100 <MOVE ! SPX! TBUS! IIBAL! SPO> 
032220 OUTPUT BR,<INCA!IBAL> ;OQUTPUT THE INCREMENTED BA 
001162 MICPC=MICPC+1 
032220 062064 <MOVE !WROUTZBR# <INCA!IBAL> > 2 
032222 SP 1BuS, 11BA2, SPO ;GET HIGH BYTE 
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032222 
O3e2e4 


032224 
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838886 
b38832 
835536 
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32240 
Jeet4e 


O35845 


32244 
32246 


b388s0 


036520 
3eeSe 


O32eeSe 
032254 
O03eeS4 


18-JAN-78 16:05 


HOS 


PAGE: 01110" 


TMTH--ROUTINE TO OUTPUT DATA CHARACTERS SES O111 


HOVE TSA fds! 11BA2!SPO> 


Rycpet ‘ rc ae ;ADD CARRY 
BR! AC! IBA2> > 


Ne BABES! Lromny-rnzrsaoooe <HOINCH-INIT8&77772>> 


;DECREMENT CHARACTERCOUNT 
+ 
PAGCE OBE bl case 


;NO OVERFLOW 
TOMB! COBNDE 1H? 1T83000%4> ! <TH7-INIT&777/ 
gpune BROKE sp} ; DEC EMENT HIGH BYTE OF COUNT 
nigrcanrchtel oo 
Z * HEH1 . ;BYTE COUNT ZERO 
MONET SCONE tHEHI- INIT&3000%4> ! <HEHI- ~INIT8777/23> 
SPBR _IBUS,NPR, SPO READ NPR REGISTER 
MICPC=MICPC+] 
<MOVE ! SPBRX! IBUS! NPR! SPO> 
Rice staCPe! 
' LT TH-INIT&777/2> > 
SP BR ce (Bs geen ins . :SAVE TSTATE 
Roper rT LB!SPe> 
BRWRTE ize ;CLEAR CO AND C1 


er yy < 456) > 
MICPC=MICH C+ 
BOR NCAT ONPR> 


<I 
Orc -nrBhest 
<MOVE ! URQUTX!BR! <INCA!ONPR> 


ALWAY 5 
ni Cesen ICPC+1 
< JUMP ! ALCOND! <RD6-IN 


;CLEAR THE BITS 


83000#4> ! <RD6-INIT877772>> 


IT 
; SREARREREREREREND TIME CRITICAL PATHEXEHRHERASEESEELEAAERERERER ESE 


109 


OMCGAL . MAC 18-JAN-78 16:05 TMTI--SEND UNNUMBERED TYPE FIELD 
1508 .SBTTL TMTI--SEND UNNUMBERED TYPE FIELD 
1503 032256 TTI: LOMA IMM, T ;ADDRESS OF TYPE FIELD TO MAR 
(1) 001201 NICPC=MICPC PC41 
(1) 932256 010151 MOVE! AGAR? IMM! <8377>> 
1504 2260 Se Mx , SP ;COPY IT TO SP6 
(1) 001202 MICPC=MICPC+i 
(1) 032260 043226 <MOVE ! SPX! MEMX! SELB! SP&> 
150 032262 o Rlcre - TMTJ 
(1) 032262 06 TUAYEGR! THM! cTHTS- INIT&77772>> 
1506 032264 AL aay S 
(1) 001204 BOS rope 
iG 032264 110520 CJUMP! ALCONO! <TD3-INIT83000*4 ! < TO3- -INI18&777/2>> 
1508 "SBTTL TMTJ--SEND SUB-TYPE FIELD 
1509 032266 T™TJ: LOMA IMM, ST ;ADDRESS OF SUB-TYPE FIELD TO MAR 
(1) 001205 MICPC= =MICPC41 
(1) 932266 010152 <MO :LOMAR! Imm! <S18377>> 
1510 70 STAT 
(1) 001206 SICPEeMICPC? | 
(1) 032270 000610 cHOVE 2 WRTEBR? I IMM! < TMTK-INIT8&77772>> 
1511 032272 ALWAYS TD3 
(1) 001207 MICPC=MIC +1 
(1) 032272 110520 < JUMP AL COND OND! < TD3-INIT&3000%4> ! <TD3-INIT&777/2>> 
1512 -SBTTL TMTK--OUTPUT RESPONSE FIELD (UNNUMB MSG) 
1514 032274 TMTK:  @RWRTE IMM,3 ;WRITE A 3 TO BR 
(1) 001210 MICPC=MICPCH I 
(1) 032274 9600403 (MOVE! WRTEBR! IMM! <3>> 
1515 032276 NOP BR, SUB, SP& ;IF TYPE LESS THAN 3 
(1) 001211 MICPC=MICPC+1 
(1) 032276 O60346 <BR! SUB! SP6> 
1516 032300 TSTATE TMTL 
(1) 001212 MICPC=MICPC+1 
(1) 032300 o00616 (MOVE !WRTEBR! IMM! <TMTL-INIT&777/2> > 
(1) OO1e13 MICPC=MIChC+ | 
(1) 032302 322 <MOVE ! SPX! BR! SELB! SP2> 
1517 032304 Cc TMTLO 
(1) 001214 MICPC=MICPC+1 
(1) 032304 111223 < JUMP! CCOND! < TMTLO-INIT&3000%4> ! < TMTLO-INIT&77772> > 
1518 032306 ALWAYS TDe 
(1) 001215 MICPC=MICPC+1 
Ase) 032306 110517 < JUMP! ALCOND! < TD2-INIT&3000#4> ! < TD2-INIT&777/2> > 
1520 *SBTTL TMTL--UNNUMB MSG NUMBER FIELD 
iS2i 032310 TTL:  TSTATE THT 
(1) 001216 MICPC=MICPC 
(1) 032310 000627 MOVE! WRT BR! IMM! ¢THTH- -INIT&77772>> 
(1) 001217 MICPC=MICPC+1 
(1) 032312 063222 <MOVE ! SPX! BR! SELB! SP2> 
1S22 032314 BRWRTE IMM,3 
(1) 001220 MICPC=MICPC41 
(1) 032314 O00403 SHOVE TWRTEBRE IMM! <3>> 
1523 032316 CMP BR, SP6 :IS MESSAGE REP 
(1) 001221 MICPC=MICPC+1 
(1) 032316 060366 <SUBTC! BR! SP6> 
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.MAC 18-JAN-78 16:05 TMTL--UNNUMB MSG NUMBER FIELD SEQ 0113 
032320 zZ TMTL A ; YES 
001222 MICPC=MICPC+ 
323 111625 CTGME! ZEON? <TMTLI- -INIT&3000%4> !<TMTL1- “INET 87772222 
3232. TMTLO: BRURTE IMM_O ADDRESS CONTNAT OF ZERO 
001223 MICPC=MICPC+1 
032322 oo040c <MOVE ! WRTEBR! IMM! <O>> 
032324 WAYS TMT 6s 
001224 RICPCOMICPCS | 
032324 110424 < JUMP! ALCOND! < TMTAS- INI T&3000%4> ! < TMTAS-INIT&777/2> > 
032326 tMTLI: BRURTE BR, SELA!SP12 ;WRITE A RESPONSE 
001225 MICPC=MICPC+1 
032326 O60612 <MOVE ! WRTEGR: BR! (SELA!SP12>> 
032330 ALWAYS TMTAS 
001226 MICP: cenicpcs 1 
032330 110424 < JUMP! ALCOND! < TMTAS-INIT&3000#4> ! <TMTAS-INIT&77772> > 
.SBTTL TMTM--UNNUMB MSG--STATION ADDRESS 
032332 ™T™: STATE TNE 
001227 MICPC=MICPC+1 
032332 000631 HOVE! WRTEBR! IMM! <TNEOM-INIT8777/2>> 
032334 ALWAYS 
001230 RICPCSNIGPC+ 1 
032334 110530 < JUMP! ALCOND! < TF2-INIT&3000#4> ! < TF2-INIT&777/2>> 
032336 TNEOM: BRWRT MM. 2 ;END OF MESSAGE TO BR ° 
032336 b00aa2 MHOVE WRT rials * 
032340 ia our > BR <SELB!OTHTCO> 
032340 6e3834 SHOVE! fh BR! <SELa? 'OTMTCO>> 
032342 OUTPUT BR. <SELB! TMTDAT> ;OUTPUT A GARBAGE CHARACTER 
001233 MICPC=M ptt 
032342 062230 <MOVE ! !<SELB! TMTDAT> > 
932344 BRWRTE IMM ;SET UP LINE HAS GONE IDLE MASK 
001234 MICPC=MICPC41 
o3234e 000404 «MOVE !WRTEBR! IMM! <4>> 
032 ‘ ;UPDATE LINE STATUS WORD 
032346 Dearie HOVE! SP tf ORB! SP 10> 
032350 ah Rrcpccn ARP ;SHIFT STATUS LEFT 
= 
032350 BeOe SB (HOVE RETIRE bel scan seio» 
032352 ;IF HDX SET---BRANCH TO CLEAR OK TO SEND 
a! PiCeerDlpcoal 
032352 113644 d < TNEOM2- INIT&3000%4> ! <TNEOM2-INIT8&777/2> > 
032354 sate picpccnd IMM 5 3 ;MASK TO TURN OFF UNNUMB PENDDING 
032354 000776 HOVE? TAEEel rn car 
032356 TNEOM1: SE B,SP10 ;MASK TO LINE STATUS WORD 
001241 MICPC=MICE BRA t 
032356 063270 OVE! SPX! BR! AANDB! SP1O> 
032360 TEOM2: STATE TMTA 
001242 MICPC=MICPC+1 
032360 O000400 <MOVE :WRTEBR? IMM! < THTA- -INIT&?77/2>> 
032362 ALWAYS XEXIT 


001243 MICPC=MICPC+1 
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TMTM--UNNUMB MSG--STATION ADDRESS SEQ 0114 
MP! ALCOND! <XEXIT-INIT&3000#4> ! < XEXIT- tN OK te 
GRuRTE Bit 176 ; CLEAR OK TO SEND AND UNNUMB PENPENODING 


TNEOMe: 


MICPC=MICPC41 
COVE WRTEBR! IMM! <176>> 
TNEOM1 


ALWAYS 
MICPCEMIChCs 1 
< JUMP! ALCOND ! < TNEOM1-INIT&3000#4> ! < TNEOM1-INIT&77772>> 


hb — ee 
He PH OO OOO UIT 
Vee + £WM--O~ ~ WONT 


~ 
RAUIR AWA AUR AUN - MUU — UU) 


- ~ 
a Nee 


~ ~ ~ ~ _ - — i 
COD NINN Ne NI NR NR NR NR 


— 


— e+e 


LOS 


PAGE: 0O11S0M 


.MAC 18-JAN-78 16:05 TIMSRV--TIMEOUT ROUTINE--SENDS REP ‘ SEQ O115 
.SBTTL TIMSRV--TIMEOUT ROUTINE--SENDS REP 
NABLE LSB 
032370 TIMSRV: age RTE. Thm 1 177 ;MASK OFF BR REQ 
pores Mey eA tosad teen <a77>> 
032370 000577 ’ amen Gegamiact Oh 
?SINCE TIMER IS RESET move WRITING 
:A 1 AND THE EXPIRATION LOOKS 
QUT BR <AANDB! OBR ano THe Biron vOut" 
032372 < !OBR> ; 
001247 MICPC=MICPE+1 
032372 061271 <MOVE ! WROUTX! BR! <AANDB! OBR> > 
ennai 001250 oe cemrepesiee 
032374 010236 (MOVE! LOMAR! INHt <2368377> > 
032376 S coal eee ‘ 
032376 894534 tt +o are 
amlbias 12 at =M BR, INCA, cae 
p3B409 34 mgr ¢SPERX? BR! INCA! SPO> 
“© 901253 NENING BR, SE - 
032402 076620 <MOVE ! M! INCMAR! BR! <SELB>> 
wr 001254 SIcp =M +1 
032404 111256 See PEOND? LSS-INIT&3O00%4> ! <S$-INIT8777/2>> 
sotedined 001255 Bee Sar op eet 
032406 100457 <JU MP!ALCOND! < IDLE 1- INIT&3000#4> ! < IDLE1-INIT&77772>> 
032410 Nail S$: - bls six X, SELB, SPO 
032410 043220 <HOVE!SPXIMENX! SELB! SPO> 
032412 SPBR BR, INC 
001257 MICPC=MI pt+1 
032412 063460 (MOVE VE! SPBRK:BR? INCA! SPO> 
032414 a m" ts BRS SELB 
gaeviy SEAEEB PROCETIAES bn seis» 
— 001261 SIcPC= 1epes +1 
03 4 111263 om aa duped iif set abl gs 
001262 MICPC=MI 
032420 100457 < JUMP! BLEND! < IDLEI- INITS3000%4> ! < IDLE1-INIT&77772> > 
032422 10S: M 12 
seize SLE83 "AOE OAgERH im <zeD> 
32424 Sica ae ia RA INCA A: SPT4 ; INCREMENT THE COUNT 
032424 063074 «MOVE! SPX! BR! INCA! SP14> 


iNUStT BE PRESERVED FROM THIS 
Ls PONTIL IT IS TESTED 


032426 TIMEO: 
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.MAC 18-JAN-78 16:05 TIMSRV--TIMEOUT ROUTINE--SENDS REP SEQ Rite 
032426 E SELA!SP1 ;READ STATUS BYTE 
aebe8f PloetAeba 
032426 l <M at R!'BR!<SELA!SP1>> 
032430 
001266 RicecansGecs | 
938439 102047 ON! < IDLE- -INIT&3000%4> ! <IDLE- ~INIT8777/2>> 
St le E ;IF IN MAINT. MODE DISABLE TIMER 
ooaaae MCAS TDR CONT ¢ NIT&3000#4> § < IDLE-INIT&77772> 
835434 Saunre OE CAPE: ‘ Rab (Ene STATUS REGISTER 
be0610 RICPUSMICRCS Te spioy» 
§3Sq3e scents Pat é ;ROTATE IT RIGHT ONE BIT 
032436 belecd <HOVE? SHETBR! SELB! BR 
032440 BRY , ;START MODE - RESEND A START 
001272 MICPC=MI +1 
032440 103164 < JUMP! BRYCON! <BS1-INIT&3000#4> ! <BS1- maT ar at . at lial 
o32442 TEScaRRe Be? Sunt HAS exP thes 
442 ret vege tk p08 INIT&3000%4> ! <20$ INITE777/ 
835445 wage Rite om Repub ERED MESSAGE IN PROGRESS 
= 
032444 116306 GPT GRSEON! <TABUPD-INITE00084 #<TABUPD-1NIT8777/2> 
032446 nena BR? sae ABUPD ;UNNUMBMSGIN PROGRESS 
446 1177 ? < TABUPD-INIT&3000%4> ! < TABUPD-INIT8&77772>> 
gsewg T1770E SIRIUIFEE A rau DEINITEZI7® Devas an cy 
001276 MICPC=MICPC+ 1 
032450 110737 < JUMP! ALCOND! < SNDACK-INIT&3000%*4> ! <SNDACK-INIT&77772> > 
O3e45e TIME: 
p35yes ‘ BRWRTE IMM, 205 ;SET OK TO SEND,UNNUMB PEND, AND 
001277 MICPC=MICPC+1 
0324S2 o00605 COVE HATEBR! IMM! <205> > 
;LINE GONE IDLE 
032454 a S one AORB, SP10 
cazusy BARB Sa ease.0 
;RESET THE TIMER TICK COUNT 
4sq 008374 eT) Gand An 
Basde8 shodte 3 BR, SeLA! ep eb ;GET LAST NUMBER SENT 
032460 pLoere on Taentes TEBR! BR! <SELA!SP12 
»> 
032462 CHP SP17 ;COMPARE TO LAST ACKED 
001303 MICPC=MICPC41 
032462 060377 <SUBTC! BR! SP17> 
032464 Z SNDACK ;IF EQ --SEND ACK 
001304 MICPC=MICPC+1 
O3B4o4 111737 < JUMP! ZC ND! <SNDACK-INIT83000#4> ! <SNDACK-INIT8777/2>> 
32466 TIME2: LOMA ;CUMULATIVE REPS SENT 
001305 MICPC=MICP pase 
032466 010015 <MOV VETLOMAR! IMM! <REPCS8377>> 
032470 SP MEMX, SELB, SPO ;COPY IT TO SPO 
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. MAC 18-JAN-78 16:05 TIMSRV--TIMEOUT ROUTINE--SENDS REP -; bg ght? on 
00 MICPC=MICPC+L 
932470 o4 (MOVE ! SPX3 MEMX? SE B!SPO> 
? ons RC iis BR, INC ; INCREMENT IT 
032472 pesaeo nove? TEs eng yromsro> 
032474 ai hice ;ADDRESS DYNAMIC REP COUNTER 
032474 ater <HOVEEL micect inn! <REPST8377>> 
032476 MX SELB ;COPY IT TO THE BR 
001311 Rice ce ruse 
032476 040620 EBR! MEMX! <SELB> > 
001312 Rice 
032500 061620 HOVE! SMICPC# on 
032502 me BR SE 
001313 MICPC=MI pt+i 
032502 062620 MOVE ! WRMEM! BR! «SELB? > 
032504 RTHRES 
001314 mI Core eagean 
932504 106371 IBROGON! <RTHRES- -INIT&3000#4> ! <RTHRES-INIT&777/2>> 
3 MM. T ;LOAD ADDRESS OF TYPE FIELD IN UNNUMB SK 
001315 NIC Csn cPchl 
032506 010151 MO EMM! <18377>> 
032510 MEMINC Tit : ;LOAD REP TYPE 
001316 MICPC=MICPCt+ 
032510 016403 <MOVE ! WRMEM! INCMAR! IMM! <3>> 
032512 YS Al 
001317 MICPC=MICP C+] 
032512 110741 < JUMP ! ALCOND! <SA1-INIT&3000#4> !<SA1-INIT&77772>> 
DSABLE LSB 
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MAC 18-JAN-78 16:05 TIMSRV--TIMEOUT ROUTINE--SENDS REP 
032514 TEOM: BRWRTE IBUS 
001320 MICPC=mMICPC+1 
032514 120620 (MOVE! WRTEBR! IBUS! <UBBR>> 
032516 BRO NXMERR ;NON-EXISTANT MEMOR’ 
001321 MICPC=MICPC+1 
032516 116051 MGT DROCON? <NXMERR-INIT&3000%#4> # <NXMERR-INIT8777/2) > 
BRWRTE IMM.2 ;E0M TO BR 
001322 MICPCaMICP CEI 
032520 o004de (MOVE! WRTEBR! IMM! <2>> 
032522 pene OUTPUT BR <SELBIOTHTCO> ;WRITE TMTR CONTROL 
032522 062231 MESS At hes can seonetegss 
032524 OUTPUT BR, <SELB! TMTDAT> ;WRITE GARBAGE DATA 
o3ese4 ee2sd MESVE TROUT TOR! <SELB! THTDAT>> 
032526 BRWRTE 8R,SELA!SPI ;CKECK FOR BOOT MODE 
ee PAOVETOAEBR/ on <SELA!SPL> 
635256 neon BR’ nee ;---IF SET IS MAINT MSG 
1 =| + 
032530 113764 < JUMP! BR7CON! <BTEOM-INIT&3000#4> ! <BTEOM-INIT&77772> > 
032532 TEOM1: LDMA BR. SELA!SP16 sADDRESS LAST TMT LINK 
001327 MICPC=MICPC+1 
032532 070216 <MOVE 1 LOMAR? BR! <SELA!SP16> > 
032534 BRWRTE MEMX. SELB 
001330 MICPC=MICPC+ 
032534 040620 <MOVE ! WRTEBR! MEMX! <SELB>> 
032536 BRO TEOMe 
032536 0433 Met BRO ON? < TEOM2 INIT&3000#4> ! < TEOM2-INIT8&777/2> > 
032540 TEOM3: SRURTES TAM 375 : TURN OFF MESSAGE PENDING 
001332 MICPC=MICPC+1 
032540 000775 <MOVE!WRTEBR? IMM! <375> 
032542 SPBR AANDB , SP10 ; 
gazsve SELES Chaves tPgRc renee: sPi0> 
032eS44 BRO EOMe ; IF UNNUMB PENDING--GO AWAY 
001334 MICPC=MICPC+1 
gnesue 112242 < JUMP! GN! < TEOM2-INIT&3000%4> # < TEOM2-INIT8777/2>> 
22546 TSTATE TMTA 
001335 MICPC=MICPC+1 
032546 000400 <MOVE !WRTEBR! IMM! <TMTA-INIT&77772> > 
001336 nICPCaMICPC st 
032550 063222 'SPX! BR! SELB! SP2> 
.SBTTL SNOACK--ROUTINE TO SEND AN ACK 
032552 SNDACK: LDMA IMM, T 
001337 MICPC=MICPC41 
032552 010151 (MOVE ! LOMAR! IMM! <T8&377>> 
032554 MINC IMM. 1 
001340 MICPC=MICPC41 
032554 016401 <MOVE ! WRMEM! INCMAR! IMM! < 1>> 
032556 SAL: BRWRTE IMM.S 
001341 MICPC=MICPC41 
032556 o00405 <MOVE !WRTEBR! IMM! <S>> 
032560 SA2: MEMINC IMM, 300 


001342 MICPC=MICPC41 
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PAGE; 
.MAC 18-JAN-78 16:05 SNDACK--ROLITINE TO SEND AN ACK see At TB. 
032560 016700 <MOVE! WRMEM! INCMAR! IMM! <300> > 
032562 SA3: SP BR AORB, SP10 
901343 MICPC=MICPC+1 
032562 1 <MOVE ! SPX! BR! AORB! SP10> 
032564 ALWAYS IDOLE 
001344 MICPC=MICPC+1 
032564 100447 < JUMP! ALCOND! < IDLE-INIT&3000#4> ! < IDLE-INIT8&77772>> 
032566 abe FUDGE: BRURTE TBUS NPR ;READ NPR CONTROL 
= 
032566 enti COVE T HATEBR! IBUS! <NPR> > 
032570 : BRO IOLE ;IF NPR GOING---LEAVE 
= 
032570 raesiteg <JURBIBROCON! <1 E-INIT&3000#4> ! < IDLE-INIT8&77772>> 
7 BRWRTE L , SELA! SP4 ;LOAD THE MAR 
001347 MICPC=MICPC+1 
032572 070604 «MOVE! WRTEBR! BR! LDMAR! <SELA!SP4> > 
032574 rence BR? we BSE ;IF SET - READ BACK ALL 200 
032574 103574 CCP BRS C * <BS2-INIT&3000#4> ! <BS2-INIT8777/2> > 
032576 MEMINC IBUS, INDATI sOTHERWISE RESTORE TWO BYTES 
001351 MICPC=mMICPC+1 
032576 036400 <MOVE ! WRMEM! INCMAR! IBUS! < INDAT1>> 
032600 i MERINC iBUS INDAT2 ee 
= 
032600 B923 MTL? | erennes rauet< SORTED? 
032602 BRWRTE IMM.2 ;UPDATE---UNIBUS ADDRESS 
001353 micpcenrcectt 
032602 (MOVE! WRTEBR! IMM! <2>> 
032604 SP ADD, SP4 ;UPDATE NPR COUNTER 
001354 MICPC=MICPC+1 
032604 06 <MOVE ! SPX! BR! ADD! SP4> 
032606 SP i IIBA1,SPO ;UPDATE ADDRESS LOW 
9913 MICP ps +1 
032606 0231 «MOVE ! SPX! IBUS! IIBA1!SPO> 
032610 OUTPUT BR,ADD! IBAI 
19 beeacs MET eth canoe TBal>> 
B35etS SP Taus fions SPO ;READ HIGH ADDRESS 
001357 MICPC=MICPC+i 
032612 023120 <MOVE ! SPX! IBUS! IIBA2! SPO> 
032614 OUTPUT BR AC? IBA2 ;UPDATE HIGH 
001360 MICPC=MICPC+1 
032614 062105 <MOVE ! T!BR! <AC!IBA2>> 
032616 Pp IBUS, NPR, SPO ;READ NPR REGISTER 
001361 MICPC=MICPC+! 
032616 123200 <MOVE ! SPX! IBUS! NPR! SPO> 
032620 Cc RESEXT ; IF CARRY---UPDATE MxT 
001362 MICPC=MICPC+1 
032620 115166 < JUMP! CCOND ! <RESEXT-INIT8&3000#4> ! <RESEXT-INIT8777/72> > 
032622 ALWAYS TH3X :GO DO ANOTHER NPR 
001363 MICPC=MICPC+1 
032622 110575 < JUMP! ALCOND! < TH3X-INIT&3000#4> ! < TH3X-INIT&777/2>> 
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PAGE: 01200M 
DMCGAL . MAC 18-JAN-78 16:05 SNOACK--ROUTINE TO SEND AN ACK SEQ 0120 
032624 BTEOM: BRWRTE ay 374 ;MASK FOR CLEAR MSG PENDING 
001364 MICPC=MICPC41 
032624 000774 <MOVE! WRT TEBRE IM «37> 
032626 sp ;TURN THEM OFF IN LINE STATUS WORD 
001365 Pore oFerba 
032626 327 <MO VBR Aang! SP10> 
032630 B,SP13 ;STORE UNRECOGNIZABLE VALUE INTO SP13 
001366 RiceC 
032630 063233 Postcnts tseLB!SP13> i 
;SO “RH3” WILL EXIT BACK TO IDLE LOOP 
032632 L in SADDRESS START OF TMT CHAIN 
poses nO MOVE TLD Ee lms 377>> 
835836 a ops :COPY LINK ADDRESS 
001370 RICPC=NTC 
032634 043220 ve pSPcrner#SELa!sPo> 
032636 SRUR mn 4 
371 Ricec=NIcpC 
326 404 ot MM! <4>> 
326 SP , 5P10 
001372 MICPC=MICPC+1 
032640 063310 <MOVE ! SPX CBR! AORB! SP10> 
032642 STATE renee ;CHANGE XMIT STATE TO LINE IS IDLE 
001373 MICPCsH 
032642 900400 ‘ ea WRT eR IMM! <TMTA- -INIT8777/72>> 
032644 063222 MASY it fel SELB! SP2> 
032646 ALWA ;POST A DONE 
032646 rece Ricec=micbcs] <T -INIT8&3000#4> ! < TDON2-INIT&777/2> > 
CTHPREMENT Bxt Bove 
032650 HOINCH: 
032650 é SP ras 18 ; ;READ NPR REG IWTH CURRENT MXT BITS 
032650 994328 SHOVE: CF osinensP0 
032652 SRURTE Thm 4 ;WRITE BIT TO ADD 
S855 TAOVETIATESRL ms cp 
B3Se25 su? Me * ONPR> ;TURN ON PROPER MXT BITS 
001400 MICPC=MICP Pes] 
032654 061010 <MOVE ! i oapaomapaari 
032656 ALWAYS He 
001401 MICPC=MICPC 
032656 110566 MCS TAL COND! < THB- -INIT&3000#4> ! < TH8-INIT&777 72> > 
.SBTTL REP HANDLER a 
032660 REP: LOMA IMM, REPC ;LOAD MAR ADDRESS WITH POINTER TO REPS RECC 
001402 MICPC=MICPC41 
032660 O10016 <MOVE! LOMAR! IMM! <REPCR8&377> > 
032662 SP MEMX, SELB, SPO ;READ NUMBER OF REPS RECO 
001403 MICPC=MICPC+1 
032662 043220 CMOVE ! SPX! MEMX? SELB! SPO> 
032664 MEM DP, < INCA! SPO> ; INCREMNT REPS RECD 
001404 MICPC=MICPt+1 
032664 O62460 <MOVE !WRMEM! OP! < INCA! SPO> > ‘ 
032666 LDMA IMM. T ;LOAD ADDRESS OF TYPE FIELD 
00140S MICPC=MICPC41 
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PAGE: O1210M 
DMCGAL . MAC 18-JAN-78 16:05 REP HANDLER SEQ rey 
032666 010151 <MOVE! LDMAR! IMM! <T&377>> 
032670 MEMINC IMM.2 ; LOAD NAK TYPE 
MICPC=MICPC41 
93 70 016402 <MOVE !WRMEM! INCMAR! IMM! <2>> 
3267 MEMINC IMM, 303 ;LOAD REP RESPONSE SUB-TYPE 
001407 MICPC=MICPC+1 
032672 016703 <MOVE ! WRMEM! INCMAR! IMM! <303>> 
0 ALWAYS SNAK :SEND AN UNNUMB MSG 
001410 MICPC=MICPC+1 
032674 114700 < JUMP! ALCOND! <SNAK-INIT&3000#4> ! <SNAK-INIT8&77772>> 
032676 STACK: BRY S$. ;IF START MODE ACCEPT STACK 
001411 MICPC=MICPC+1 
032676 117013 < JUMP * BRYCON! <S$-INIT&3000#4> ! <S$-INIT&77772>> 
032700 ALWAYS IDLE ; IGNORE STACK 
001412 MICPC=MICPC+1 -— 
032700 100447 < JUMP! COND? <TDLE INIT&3000*4> ! < IDLE-INIT877772> > 
032702 S$: BRWRTE IMM, 32 ;MASK TO CLEAR START 
001413 MICPC=MICPCt I 
032702 000727 (MOVE! WRTEBR! IMM! <327>> 
704 S ;SP10 ;CLEAR START MODE 
001414 MICPC=MICPC+1 
032704 063270 <MOVE ! SPX! BR! AANDB! SP10> 
032706 ALWAYS SNDACK ;RESET TIMER AND IDLE 
001415 MICPC=MICPC+1 
032706 110737 < JUMP! ALCOND ! <SNDACK-INIT&3000#4> ! <SNDACK-INIT8777/2> > 


wnee 01220" 


DMCGAL . MAC 18-JAN-78 16:05 REP HANDLER £9 Ol22 
1694 032710 ICBA23: 
1702 032710 IBUS, UBBR, SPO 
(1) 001416 MICPC=MICPC+1 
(1) 032719 123220 <MOVE ! SPX! TBUS! UBBR! SPO> 
1703 71 BRWRTE IMM, 115 
(1) 001417 MICPC=MICPC41 
(1) 032712 oO00S515 (MOVE! WRTEBR! IMM!<115>> 
1704 032714 BR, AANDB, SPO 
(1) 901420 MICPC=MICPC+1 
(1) 032714 3260 < VE 2SPX! BR! ANDB! SPO? 
170$ 032716 BRWRTE IMM,4 
(1) 901421 MICPC=MICPC41 
(1) 032716 0404 (MOVE ! WRTEBR! IMM! <4>> 
1706 0327 UT BR. <ADD! OBR> 
(1) 001422 MICPC=MICPC+1 
(1) 032720 061011 < 'WROUTX! BR! <ADD! OBR> > 
1707 032722 YS RK3 
(1) 001423 MICPCaMTCEC | 
(1) O32722 104664 JUMP! ALCOND! <RK3- INIT&3000#4> ! <RK3-INIT38777/2> > 
1709 032724 FLUSHI: ou PUT IMM, <200!ORCVCO> ;FLUSH THE RECVR 
(1) 001424 MICPC=MICPC41 
(1) 032724 O022I2 ’ T! IMM! <200! ORCVCO>> 
1710 032726 ALWAYS CG 
(1) 001425 MICPC=MICPC+1 
(1) 0327 104601 < JUMP! AL OND! <CG1-INIT&3OOO#4> # <CG1INIT87772> 
1712 0327 NAK: LDMA NDA ;CUMMULATIVE NAK COUNTER 
(1) 001426 MICPC=MICPC41 
(1) 032730 010011 <MOVE! LOMAR! IMM! <NDATR8&377> > 
1713 032732 SP MEMX, SELB, SPO ;READ IT 
(1) 001427 MICPC=MICPC+1 
(1) 0327 043220 <MOVE ! SPX!MEMX? SEL B! SPO? 
1714 0307 MEM MEMX, INCA! SPO ; INCREMENT THE COUNTER 
(1) 901430 MICPC=MICPC+] 
(1) 032734 2460 CHOVETURRER? RERDK? INCA! SPO> 
1715 032736 RWRTE BR,SELA!SP17 ;GETLASTMESSAGE ACKED 
(1) 001431 MIC snrcpcat 
(1) 032736 060617 (MOVE ! WRTEBR! BR! <SELA!SP17>> 
1716 032740 SP BR. SELB, SPle ;COPY TO CURRENT NUMBER 
(1) 001432 MICPC=MICPC+1 
(1) 032740 063232 <MOVE !SPX? BR? SELB! SP12> 
1717 032742 BRWRTE IMM.6 ;WRITE NUMBERED MSG PENDING 
(1) 001433 MICPC=MICPC41 
(1) 032742 000406 «MOVE! WRTEBR! IMM! <6>> 
1718 ;AND LINE HAS GONE IDLE 
1718 032744 NAK1: LDMA IMM, STC !ADDRESS START OF XMIT CHAIN 
(1) 001434 MICPC=MICPCH1 
(1) 032744 010067 <MOVE ! LOMAR! IMM! <STC&377>> 
1720 032746 SP MEMX!LOMAR, SELB, SP16 :COPY START OF CHAIN TO LAST XMIT 
(1) 001435 MICPC=MICPC+1 
(1) 032746 053236 <MOVE ! SPX! MEMX! LOMAR! SELB! SP16> 
1721 032750 SP BR, AORB, SP10 ;SET IT IN LINE STATUS WORD 
(1) 001436 MICPC=MICPC+1 
(1) 032750 063310 <MOVE ! SPX! BR! AORB!SP1O> : 
1722 032752 SP IMM, 374, SP14 :RESET TIMER COUNT 
(1) 001437 MICPC=MICPCH1 
(1) 032752 003374 <MOVE ! SPX! IMM!374!SP14> 
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PAGE: 01230M 
.MaAC 18-JAN-78 16:05 REP HANDLER SEO 0123 
en 00144 MICPC=M Pot 
032754 004339 MCP BRC N? <TEOML-INIT&3000#4> ! < TEOML-INIT8777/2> > 
032756 - BRURTE MENX, SELB 
= 
032756 oodece <MO ROVE FHRTEGR#MEMK? <SELBD > 
032760 BRO Il 
001442 MICPC=MICPC+ | 
032760 102051 JUMP t BROCON! <I1- -INIT&3000#4> ! <I1-INIT8&77772>> 
032762 aL uy 
001443 AY CPCOMI é +1 
032762 110732 {JUMP LAL COND} TEOMS-INIT83000#4> : <TEOMS-INIT8777/2> > 
032764 bia: INWATL: WATE, MASK FOR RDYI 
sig 
032764 ietertats Riche: =m a heme 
032766 nena SP ope: sat aad ;READ INPUT CONTROL CSR 
7 123000 <M x! CoN sPO> 
635590 6u Be, RORE! OF ;SET ROYI 
770 BbI300 nicecsnrerts + Xt BR! <AORB! OINCON> > 
8 77 see e IWA -CHANGE STATE TO WAIT FOR IEI OR RGI 
032772 MEM IMM. << IEIWAT-INIT&777/2> 5 
001447 MICPC=M cpchi 
032772 002507 <MOVE! M! IMM! << IEIWAT-INIT877772> >> 
032774 ALWAYS IOLE 
0014S0 MICPC=MICPC #1 
032774 100447 < JUMP! ALCOND! < IDLE-INIT&3000#4> ! <IDLE-INIT877772>> 
*$BTTL NXMERR ---NON EXISTANT MEMORY HANDLER 
032776 “i NXMERR: Hie TMM <<RTHRS+3> > ;ADDRESS ERROR LINK 
032776 rete, cert micect 1 aM! <<RTHRS#+3>8377>> 
033000 IMM 
0014Se2 ENING TBH, | 
933000 016401 <MOVE ! WRMEM! INCMAR! IMM!<1>> 
O MEM MM ;NXM ERROR BIT 
3 ier MICPCSMICE CH tt <o>> 
933884 SP MX, SELB, SP10 ;CLEAR STATUS 
0014S4 MICPC=MICPC+ 
033004 043230 <MOVE ! SPX!MEMNX! SELB! SP 10> 
033006 ALWAYS RCEXX 
oo14ss mic aT ICP C+1 ¢ ee 
0332006 114S11 < JUMP! ALCOND! <RCEXX-INIT&3000#4> ! <RCEXX-INIT8&777 72> > 
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DMCGAL . MAC 18-JAN-78 16:05 NXMERR ---NON EXISTANT MEMORY HANDLER SEQ 0124 
1742 ;FUGITIVE RECEIVE ROUTINES---DON’T FIT IN PAGE 
1743 033010 + RH1: Coma : BR <INCA 'SP1S> :LD MAR WITH ADDR OF BA 
= 
at 933019 BOAdsE ery a bp INCA!SPIS> > 
1744 BRWRTE BR, SELA!SP1 ;READ STATUS BYTE 
ch) tat SHOVE UATE RR eR: <SELA!SP1>> 
Sad 33816 ge : ° ith : ;NO BUFF ASSIGNED IN MAINT MODE 
(1) 001460 MICPC=MICPC+1 
(1) 933014 116472 June BRICON? «RH INIT&3000#4> ! <RH4-INIT&777/2>> 
ats} - 001461 nICPCs MICP a 
(1) 933016 014477 <MOVE Way Bat oe pncrant 77>» 
1747 033020 Sp 
(1) 001462 a 
(1) 033020 063265 HOVE! SPX? BR? RANDB! SPS> 
1748 033022 SP BR? INCHAR, SELB, SPO ;SAVE BYTE TNT MASK 
th) 2 4383 rh TepX SRE * INCMAR! SELB! SPO> 
1749 633084 SRUR —E MEMX!INCMAR,AANDB!SPO ;GET HIGH BYTE COUNT BITS 
(1) 033024 ner TAI NE Sl ase seceudll aeeraren PQ>> 
1750 033026 CMP BR, SPS ;COMPARE HIGH ORDER BITS OF COUNT 
2 Bees Ceoe tera See> 
1781 833058 ath Z op * RCLOW ;IF EQUAL COMPARE LOW ORDER BITS OF COUNT 
y 
(1) 330 115476 mire ti SEEES cx ou-rnrTeaqg0% cRceau-INtT37727/2» 
17 330 RH6: ¢ ATL > IF CARRY--TOO BIG ERROR 
iD rested Hicecenrcre tte FATL-INIT&3000*4> ! <RCFATL-INIT&777/2>> 
1583 833835 RH: Saunre ca on RE Ao LOW BYTE OF IN BA 
E gzsnqy S245%8 SHOVE TOR EEE! ZBUS!<ToaAL>> 
1754 9338 B S000 ;IF SET IS ODD TRANSFER 
(1) 001471 RICPCANIGPCS 1 
(1) cane 116074 <TUM ON! <RCVODD-INIT&3000#4> ! <RCVODD-INIT3777/2> > 
1755 304: RH4: S me VKEO 
(1) 001472 MICPC=MICPC+ I 
(1) 033040 000676 <MOVE ! WRTEBR! IMM! <RCVKEO-INIT8777/2>> 
(1) 933042 104425 PIGRSTMEENS cmexar-inrrasc00% !<REXIT-INIT8&77772>> 
1757 3044 RCVODD: STATE VKO1 
(1) 001474 RICPESMICPCe 1 
(1) 033044 o00624 <MOVE !WRTEBR! IMM! <RCVKOL-INIT877772> > 
1758 033046 ALWAYS XIT 
(1) 001475 MICPC=MICPC+1 
$22 033046 104425 < JUMP! ALCOND! <REXIT-INIT&3000#4> ! <REXIT-INIT&77772> > 
1386 033050 RCLOW: MENX SPY ;COMPARE LOW ORDER BITS OF COUNT 
ae Sb3e5 rlesiathe Rx! ePH> 
1581 B83pe8 
(1) 001477 nECPCe MICPe+1 
(1) 033052 114467 < JUMP! ALCOND! <RH6-INIT&3000#4> ! <RH6-INIT&777/2> > 
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NXMERR ---NON EXISTANT MEMORY HANDLER 


RCFATL: LDMA 


RCEXY: 


RCEXX: 


START: 


MICPC=MIC 
«MOVE !L MM! <1T8&377>> 
MEMINC 

MICPC=MICP 
<MOVE § WRME MAR! IMM! <2>> 


= fe) 
ee ol 


anoan 
er ie 
3 33 52 


$<31 
THRS+1>> ;ADDRESS ERROR LINK 
§<<R 


2325322 
Z 


MAR! IBUS! < IOBA1> > 


pees 
eae 
32 


MAR! IBUS! < IOBA2>> 
H MM! <20>> 

MICPC41 
THAME * INCMAR! IMM! <0>> 


1 
'BR! <SELB>> 
200! ORCVCO> ;FLUSH INPUT SILO 


az 

3o 

mo 
am 
HOM 
33 


; 


saacae 
ASaSaaseAS AS 
=z 
oR 
zo = 
pin 
- © 


' IMM! << TMTAG-INITS77772>> 


A@Az@AA3zOr4R2 


Bosous 


,SP1 ;SET INIT MODE IN PORT STATUS WORD 
MM!1!SP1> 


SP 
=MICPC+1 
'ALCOND! <NTRS1-INIT&3000%4> ! <NTRS1-INIT&77772>> 


. SBTTL Bret HANOLER 

BRWRTE DP,<SELA!SP10> ;READ LINE STATUS WORD 
MICPC=MICPC+1 

<MOVE ! WRTEBR! DP! <SELA!SP10>> 


SHF T 
MICPC=MICPC+1 
<MOVE ! SHF TBR! WRTEBR! SELB> 
BRY 10$ ;IF IN START MODE SET STACK 
MES LasCSat 


UMP! BRYCON! < 10$-INIT&3000#4> ! < 1OS-INITS77772>> 
;ELSE SET UP START ERROR 
BRWRTE IMM,200 


MICPC=MICPCHI 
<MOVE !WRTEBR! IMM! <200> > 


% 
BO~MO 
w- 


;GET START MODE BIT IN POSITION 
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DMCGAL . MAC 18-JAN-78 16:05 START HANDLER SEQ 0126 
1782 033120 ALWAYS RCVM2 
(1) 001522 MICPC=MICPC+1 
(1) 033120 104741 < JUMP MB TALCOND! <RCVM2-INIT&3000%4> ! <RCVM2-INIT&77772> > 
1783 033122 10S: LOMA IMM, T ;SET UP ADDR OF TYPE FIELD 
(1) 001523 MICPC=MICPC41 
(1) 033122 010151 <MOV VETLOMAR! IMM! <T8377>> 
1784 033124 MEM INC IMM.7 ;WRITE STACK TYPE 
(1) 001524 MICPC=MICPC41 
(1) 033124 016407 CHOVETURMEN? INCHAR! IMM! <7>> 
1785 033126 BRWRTE IMM 11 ;SEND THE UNNUMB MESS 
(1) 001525 MICPC=MICP Pct 
(1) 033126 OOO411 <MOVE !WRTEBR! IMM! <11>> 
1786 033130 ALWAYS SAe 
(1) 001526 MICPC=MICPC+1 
(1) 033130 110742 < JUMP! ALCOND! <SA2-INIT&3000#4> ! <SA2-INIT&77772>> 
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001527 
040757 


001530 
1078723 


001$31 
070200 


001532 
002400 
001533 
010067 


001534 
002471 


001535 
000843 


001536 
060360 


001537 
115S4e 


001S40 
000406 


001S41 
062400 
001542 
010241 
001543 
0S3223 
001544 
016600 


001545 
062460 


001S46 
010241 


001547 
O0eb42 


001SS0 
000776 


TOON4: 
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PAGE: 01270M 
START HANDLER SEG 0127 
TDON3: BRWRTE MEMX,SUB!ISP17 ;COMPARE RESPONSE TO MSG NO 
Sn en vacrecd «SUB! SP17>> 
BR? cent ite : De ’ ; IF NEGATIVE EXIT 
s + 
< JUMP! BR7CON! <RH3-INIT&3000#4> ! <RH3-INIT&777/2>> 
TDON2: LDMA SELA! SPO ;ADDRESS THE TRANSMITLINK 
nicpcemIcpc+ 1 '<SELA!SPO>> 
“IMM. O | ; ;TURN OF ASSIGNEDAND TMTED BITS IN FLAG 
MICPC=MICPC41 
<MOVE! WRMEM! IMM! <O>> 
IMM. S 


LES aretl <S rR??? 


MEM IMM. TML ;ASSUME WRAPAROUND 
ep cy 
BRWRTE IMM, TMLE ; WRAPAROUND? 
MICPC=MICPC41 + 
(MOVE! WRTEBR! IMM! < TMLE>> 
CMP BR, SPO 
MICPC=MICPC+1 
<SUBTC! BR! SPO> 
Ficpcemrcpeet same 

= + 
< ? * < TDON4Y-INIT&3000%4> ! < TDON4Y-INIT8&77772> > 
SRURTES INN 6 at) ;OFFSET FOR NEXT TMT LINK 
per) ed 
MEM Br ADD! SPO ;UPDATE THE POINTER 
SHOE RIESE bs <goD! spo 
LOMA IMM.NXTSP ;ADDRESS DONE LINK 
Oy a 
LOMA MX, SELB! SPK!SP3 ;ADDRESS THE LINK,COPYING 
Ra ae: wrens 

5 ; , Pears ;ITS ADDRESS TO SPO 
MEMINC _IMM, 200 :WRITE THE INTERRUPT TYPE 
A ny ia 

j INCA!SPO) ;COPY ACTUAL LINK ADDRESS 
Neer hey crNcat soy» 
OMA =IMM.NXTSP ;ADDRESS PTR INT STACK 
ChOV CL saat 

M __ IMM. INTSTK . ;ASSUME WRAP AROUND 

BOOP OARES! fem ANTS TIO 
RWRTE IMM. <<MMEND-2>> ;ADDRESS ENDOFINT STACK 
PABUEHOAYE SRE 1 <cemeN0-2>>> 

t ,SP3 ; WRAPAROUND? 
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PAGE: 01280M 
MAC 18-JAN-78 16:05 START HANDLER S£0 0128 
01551 MICPC=MICPC+1 
3317 BeaSeS <SUBTC! BR! SP3> 
633508 a nie emreeon 40 ; YES---BRANCH 
033200 Ppezee MEST ZEOND! ¢ TDONHO-INIT&3000%4> ! << TDON4O-INIT&77772> > 
033202 ‘ BRHRT Int 2 ;OFFSET TO NEXT PAIR 
ae = 
033202 weft SHOVES WATEBR! IMM! <2>> 
033204 MEM BR, ADD! SP3 ;UPDATE POINTER 
g01554 nIcece cPt+1 
033204 3 <MO M!BR! <ADD! SP3>> 
033206 TDONYO: BRWRTE IMM. 20 ;WRITE INTERUPT PENDING 
001555 MICPC=MICPC41 
033206 000420 (MOVE! WRTEBR! IMM! <20>> 
033210 SP BR, AORB, SP1 ;IN PORT STATUS WORD 
001556 MICPC=MICPC+1 
033210 063301 «MOVE! SPX! BR! AORB! SP1> 
“033212 g01s57 TOON: cy net iy ;GET LAST ACKED 
l2 010153 < (Oma MM! <ISP178&377>> 
§3351§ gi2pt3 :STORE IT IN SP17 
14 REESE RIOR CR pan 
§335i¢ L MM. STC ;GET START OF TMT CHAIN 
001561 HICPC=MI Pc41 
033216 010067 <MOVE! LOMAR! IMM! <STC8&377>> 
033220 LOMA MEMX, SELB? SPBRX! SPO ;ADDRESS THE LINK 
001562 Nigecenzcrce | 
033220 053620 Pr) < SELB! grenxt ao» 
033222 iad RiGe a TENCHAR ;GET THE FLAGS 
033222 4620 is =nre Enemx! INCHAR! <SELB>> 
033224 ;IF BUFFER ASSIGNED PROCEED 
001564 nicest 
033224 116527 TeGn# «ToONS-1NITS3000%4> < TDON3-INIT8&77772> > 
033226 ;ELSE---EXIT 
001565 RIGECSMTCPCS 
033226 104573 < JUMP! ALCOND! <RH3-INIT&3000#4> ! <RH3-INIT&77772> > 
033230 RESEXT: BRWRTE _IMM,4 ;ADD TO MXT BITS 
001566 MICPC=MICPC41 
033230 000404 HOVE SURTEBRE IMM! <4> 
033232 
001567 rarer Great 
33232 063000 a! nop! sPo> 
33234 ALWAYS 
001570 MICPC=MI 


033234 110575 «JUMP! ALCON! < TH3X-INIT&3000%4> ! < TH3X-INIT&77772> > 
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PAGE: 01290M 
.MAC 18-JAN-78 16:05 START HANDLER SEQ 0129 
} INPUTS: 
: , Sipg = RECEIVE CHARACTER 
033236 001571 PASWRD: tte nye +3 jLNOSH, SP13 ;READ PASSWD SWITCH 
x! TBUS! LNOSW! SP13> 
O33500 seated i a ;IF ALL ONES NO RLD ENABLED 
1 = 
Uni ze Ze5K6! < -INIT&3000%4> ! <10$-INIT&77772> > 
§335ue ae Hae ou ;CHECK FOR ENTER MOP MODE 
001573 SR OPCOMICPChs 
033242 000406 <MOVE! WRTEBRE IMM! <> > 
033244 Beer 
o33244 e060 NG: dean fe Pd 
033246 es hr ;IF EQUAL ENTER MOP 
4 RO! <20$-INITE3000%4 ay Ae ap eats 
a os uae see Sel Tbe 
= 
tJ | »> 
gaageg Sededi sere ee ae ca, kets proctitis te 
001577 M ry 
p3ae5e 106746 < me eS BH pee Neh sh sea 
M4 beoset richcneet BR!BR!<AA!SP1>> 
833522 om ' ar en ;DLE RECEIVED IN NORMAL MODE 
1601 
*BRYCON! -INIT mH ER VMO-INIT8&777/ 
cc aa afte gmgeg <ROvnO-INITS3O00e% SEINE RAENY ROOEhessace 
= 
3260 < JUMP! arp? <a 5JNIT&3000%4> ! aaa: 
p3acbe _ 20S: Sp nee Ae 3p ;COUNT FOR NUMB OF COMPARES 
001603 MICPC=MI Rade 
033262 063164 (MOVE ! SPX! BR! laaeeenees 
BSF oe aie EPEey 
933264 000743 CHOVELURTEBR! Int? CEM2- INIT&77772>> 
001605 mS Rex! 
033266 104425 < JUMP! ALCOND! <REXIT-INIT&3000#4> ! <REXIT-INIT&777/2>> 
‘ .ENABL LSB 
033270 RCVML: ne . Zin NA ;RESET NAKS SENT 
cazero TUBE GETOBRes th cexstasr7y | 
001607 Hicpcenrcpctt ied P. 
R33556 ene (BRX ath Ae? ;ADDRESS ORIGINAL RECV BYTE COUNT 
001610 RICPC=MICPCS1 
033274 010167 <MOVE ! LOMAR! IMM! <BC8&377> > 


033276 SP MEMX! INCMAR, SELB, SP4 ;MOVE BYTE COUNT TO SP4 


N10 


PAGE: 01300M 
DMCGAL . MAC 18-JAN-78 16:05 START HANDLER SEQ 0130 
(1) 1 MICPC=MICPC+1 
(1) 033276 pOxe33 <MOV tSPX2MEMX? INCMAR: SELB!SP4> 
1851 033300 oossu2 Ricpcen nycresi ' INCMAR, SELB, SPS ;AND SPS 
(1) x! Rx! INCHAR! SELB! SPS) 
1852 $33 398 MEM BR, DECA SP11 ;COPY SP11 TO MEMORY 
(1) 001613 nICPC= 
(1) 033302 062571 SHORES bes pean sei 
1853 033304 in 
(1) O01614 ie nee 
(1) 933304 10241 MM <NXTSP8377>> 
1854 033306 OMAR, SELB, SP3 ;COPY TO SP3 
(L) po4833 Ricpcenrcpcei MEMX! LDMAR! SELB! SP3> 
1855 §33398 MEMINC IMM, 204 ;RECEIVE DONE IMAGE 
(1) 001616 MICPC=MICPCS 
(1) 033310 016604 <MOVE ! M! INCMAR! IMM! < 204> > 
1856 331 me mL , SELA!SP1S ;COPY LINK ADDRESS TO NEXT INTER 
(1) 001617 MICPC=MICPC 
(1) 033312 072615 AMEN: 'LOMAR! <SELA!SP15>> 
1857 033314 men NC inn ;ZERO THE FLAGS 
(1) 001620 MIC snrcect 
(1) 033314 016400 ‘ M! INCMAR! IMM! <O>> 
1858 033316 SP int NCMAR, SPO, 300 ;WRITE A 300 TO SPO 
(1) 001681 MICPCaML PC+1 
(1) 033316 0173 <MOVE xX! IMM! INCMAR! SPO! 300> 
1859 033320 dB I NCMAR, ;PREPARE TO ADDRESS NEXT 
(1) 001622 nrc SNICPCs 
(1) 033320 614402 EGR! IMM! INCMAR! <2>> 
1860 ; INTERRUPT STACK AND INCREMENT 
1862 033322 MEM MEN AANDB! SPO :MASK OFF ORIGINAL HIGH BYTE 
(1) 001623 MICPC=MICPC+1 
(1) 033322 O42660 <MOVE ! WRMEM! MEMX! <AANDB! SPO> > 
1863 ;OF COUNT SAVING EXTENDED MEM BITS 
1864 033324 MEMINC 1 feitx AORB! SPS :COPY TO MEMORY LINK 
(1) 001624 MICPC=MICP pcet 
(1) 033324 os <MOVE !WRMEM! INCMAR! MEMX! <AORB! SPS>> 
1865 033326 NC ‘EEL AY Spa 
(1) 001625 MICPC=MICPC+1 
(1) 0333 076604 (MOVE! WRMEM! INCMAR! BR! <SELA!SP4> > 
1866 333 : Lona ts INH NXTSP ; ADDRESS NEXT INT STACK 
(1) 033330 Br asae SHOVE! OMAR! MM! <NXTSP8&377> > 
1867 033332 M ADD! SP3 
(1) 001527 MICPC=MICPC+1 
(1) 033332 O62403 <MOV LWRMEM? BR? <ADD! P3>> 
1868 033334 BRWRTE IMM, <<MMEND-2>> ;ADDRESSEND OF INT STACK 
(1) 001630 MICPC=MICPC41 
(1) 033334 000776 <MOVE ! WRTEBR! IMM! <<MMEND-2> >> 
1869 033336 MP SP3 ;WRAP AROUND 
(1) 001631 MICPC= icp) 
(1) 033336 060363 <SUBTC! BR! SP3> 
1870 033340 2 4O$ ;IF YES-- BRANCH 
(1) 001632 MICPC=MICPC+1 
(1) 033340 115646 < JUMP! ZCOND! <4O$-INIT&3000#4> ! <4O$-INIT8&777/2>> 


Bil 


DMCGAL . MAC 18-JAN-78 16:05 START HANDLER 
1871 033342 20s: 
1872 032342 BRWRTE IMM,RCL7 
(1) 001633 MICPC=MICPC41 
(1) 033342 000462 (MOVE! WRTEBR! IMM! <RCL7> > 
1873 033344 CMP BR, SP1S 
(1) 001634 mIcpcanIcrctl 
(1) 033344 060375 <SUBTC! BR! SF15> 
18 033346 2 sos 
(1) 001635 MICPC=MICPC+1 
(1) 03334 115650 < JUMP! ZCOND! <SOS-INIT&3000#4> ! <SO$-INIT&77772> > 
18 033350 BRWRTE IMM.S 
(1) 001636 MICPC=MICPC41 4 
(1) 0333250 o0040S «MOVE !WRTEBR! IMM! <S>> 
1876 033352 30$: Sp BR, ADD, SP15 
(1) 001637 nicpcenrcrcel 
(1) 933352 063015 «MOVE! SPX! BR! ADD: SP15> 
1877 033354 BRWRTE IMM, 20 ;MASK FOR INTERUPT PENDING 
(1) 033354 pooNe0 TEE TUATESat Trent <e0>> 
1878 033356 SP OP, AORB, SPI ;UPDATE PORT STATUS WCRD 
(1) 001641 MICPC=MICPC+1 
(1) 033356 063201 <MOVE ! SPX! DP! AORB! SP1> 
1880 033360 BRWRTE DP. <SELA!SP10> ;READ LINE STATUS WORE 
(1) 001642 MICPC=MICPC+1 
(1) 033360 060610 «MOVE! WRTEBR! DP! <SELA!SP10>> 
1881 033362 BRY FLUSH :IF CLEAR ACTIVE SET---FLUSH 
(1) 001643 MICPC=MICPC+1 
(1) 033362 107015 < JUMP! BRUCON! <FLUSH-INIT&3000#4> ! <FLUSH-INIT877772> > 
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MAC 
033364 


03336 


033366 
033370 


033370 
033372 


033372 
033374 
033374 
033376 
033376 


033400 


033400 
033402 


033405 


033404 
033406 


033406 
033410 


033410 
03341 

03341 

033412 
033414 
033414 
033416 


033416 
033420 


ee 


033422 
033424 


baause 


033426 


18-JAN-78 16:05 
001644 
000400 
00164S 


1044eS 


646 
42 


001647 
114633 


Boa eae 


Cll 


START HANDLER 


RM1: 


40$: 


SOs: 


NTHRES: L 


ERRXX: 
NTRSO: 


NTRS1: 


STATE RCVA 
MICPC=MICPC+1 
<MOVE ! WRT BR IMM! <RCVA- -INIT8777/2>> 
AL WAY xIT 
ae ee INIT&3000#4> ! <REXIT-INIT877772>> 
Rye uy :POINT TO START OF INTERRUPT STACK 
CPCanICe 
IMM! < INTSTK>> 
A INIT&3000#4> ! <20$-INIT8&77772>> 
8 BRWRTE 1M TMM <<RCLI-RCL7>8377> | ;POINT TO START OF QUEUE 
<AOVE? ZA TE ba! IMM! < <RCL1-RCL7>8377> > 
MICPC=MICPC+1 
nt Geert eel caos-mntraooo0en <308-1n118°77/20 


(DMA IMM, ST 
MICPC=MICPC Pct] 
MOVE !LOMAR? i <S18377> > 


joe Hx ‘ press. 
a eae Spae :SHIFT LEFT 
MICPC=MI 


save VE!WRTEBR! BR! «ADD! SPO> > 
OVRRUN 


SIGRETBASEScovmmun-snrss00064 1 oveRUN- INIT877772>> 


RICPCSNICECH 
«MOVE! WATESR! IMM! <1>> 


LOMA IMM, <<RTHRS+3>> 
MICPC=MICPCH1 
ASVETLDMAR! IMM! <<RTHRS+3>8377>> 


Pecan 
VE! WRMEM! INCMAR! IMM! <> > 


Reeth, geo, 
TSP 


LDMA 
NICPC=MIC echi 
MOVE ! LOMAR? Tih? <NXTSPS 77>> 


{ nTeBee SELB! SPX! SPO 
MICPC=MICPC+1 
<MOVE !LOMAR! MEMX! <SELB!SPX!SPO>> 


MEMINC IMM, 201 
Pct 


MEM mene HRS> > 
CMOVE ! WRMEM! IMM! <<RTHRS> >> 
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. MAC 


033430 
033430 
033432 
32 
3434 


033434 
033436 


035930 
B3aus2 


033442 
033444 


O35446 


033446 
033450 


b33482 


0334Se 
0334S4 


0334S4 
0334S6 
033456 
033460 
033460 
033462 


033462 
033464 


033464 
033466 


033466 


18-JAN-78 16:05 


bidesi 


667 
42 


Bbd976 


001671 
060360 


001672 
115675 


001673 
000402 
ses 
co 
001676 


063701 


001677 
116311 


a1bi71 
001701 
043231 


001702 
063071 


001703 
000401 


001704 
063310 


00170 
10441 


PAGE: 01330" 


START HANOLER SES 0133 


RECeCaMTCRC HT “ 
Drink? Erm cwxTSPB377> 
INTSTK ;ASSUME QUEUE WRAP AROUND 


Reel Bs sae CINTSTK>> 


rn, < <MMEND-2> > 


PASGEOATEBG! ne coms0-2>> 
niceties, 


; IT DIO WRAP AROUND 


MOM ZCOND? <NTRS2 INIT&3000#4> ! <NTRS2-INIT8777/e2> > 
BRURT MM. 2 . Mare cet #5 NEXT PAIR 
HSE RUA TERE Tn! <2>> 

ADD! SPO ;UPDATE QUEUE POINTER 


Micecenicets 
Set at <sossro 
CnOWE HATESR? em: c20>> 


RECPCSMICP cpu, 
Sieve! SPOR i ;FLAGGED BY ERROR TYPE 
OR CPC=MICPC+ I 


ae -INIT&3000#4> ! <TAB1-INIT&77772>> 


MICPCAMICEC 


< 'SPX! MEMX! 'SP11> 

Spove alt x HEN see! ; INCREMENT MSG EXPECTED 
HOVE SPR BRT INCA! SPLL> 

BRWRTE IMM, 1 ;UNNUMB PENING BIT TO BR 
PAOVETIATEDR om > 

feet nee RB, SP10 ;UPDATE LINE STATUS WORD 


+1 
Se ee ane 


4 CPC=MIC 
: ed BUONO! <FLUSH-INIT&3000%4> ! !<FLUSH-INIT8777/72>> 


2 
: 


~ ~ ~ ~ — 
— Te = Ne oe Pe 
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.MAC 18-JAN-78 16:05 START HANDLER SEQ 0134 
033470 TABUPD: SPBR 1BUS RCVCON, SPO ;READ RECEIVER CONTROL REG 
001706 MICPC=mICPC+! 
033470 023640 <MOVE ! SPBRX! IBUS! RCVCON! SPO> 
03347 BRWRTE BR, ADD!SPO ;SHIFT LEFT 
901707 MICPCaMICPC #1 
033472 040c <MOVE ! WRTEBR! BR! <ADD!SPO> > 
033474 BR? IDLE ;RECEIVE ACTIVE--IDOLE 
001710 MICPC=MICPC41 
033474 103447 < JUMP! BR7CON! < IDLE-INIT&3000#4> ! < IDLE-INIT&77772> > 
033476 TABI: LDMA IMM, IMG1O 
001711 MICPC=MICPC41 
033476 010154 <MOVE ! LOMAR! IMM! <IMG108377>> 
033500 BRWRTE IMM, 42 
1712 MICPC=MT Pct 
033500 B80 2 (MOVE !WRTEBR! IMM! <42>> 
033502 MEMINC ®8R,AANDB!SP1O ;SAVE BITS 1 AND S OF SPIO 
001713 MICPC=MICPC+ 
033502 6670 <MO THAME? NCMAR! BR! <AANDB! SP10> > 
033504 MEMINC ®8R,SELA!SP11 ;SAVE SP11 
001714 MICPC=MICPC+1 
033504 076611 <MOVE ! ME INCMAR + BR! <SELA!SP11? » 
06 MEMINC LA!SP1S ;SAVE SPS 
001715 MICPC=MICPC+1 
033506 076615 <MOVE ! WRMEM! INCMAR! BR! <SELA!SP15>> 
033510 MEMINC BR,SELA!SP17 ;SAVE SP17 
001716 MICPC=MICPC+1 
033510 076617 SEC OE TRMEM? INCMAR! BR! <SELA!SP17>> 
“MAR NOW POINTS TO BASE 
033512 STATE  RB2 ;D0 NOT CHANGE BR UNTIL RBO 
001717 MICPC=MICPC+1 
033512 000461 (MOVE !WRTEBR! IMM! <RB2-INIT8&777/72>> 
0335 LDMA IMM, TABST ;POINT TO TABLE UPDATE STATE 
001720 MICPC=MICPC41 
033514 O10ei0 <MOVE !LOMAR! IMM! < TABST&377>> 
033516 PSTATE TBUI ;NEW PORT STATE ADDRESS 
3351 MEM IMM, <<TBUL-INIT877772> > 
001721 MICPC=MICPC41 
033516 002756 (MOVE ! WRMEM! IMM! << TBUL-INIT8&777 72> >> 
0335 SP IMM, 4, SP4 s INITIALIZE COUNT 
001722 MICPC=MICPC41 
033520 003004 <MOVE ! SPX! IMM!4!SP4> 
;NOTE: FIRST & RAM LOCATIONS ARE NOT WRITTEN 
:TO CORE TABLE. 
033522 LDMA IMM, BASE 
001723 MICPC=MICPC41 
033S22 010017 <MOVE ! LOMAR! IMM! <BASE8377> > 
033524 ALWAYS RBO 
001724 MICPC=MICPC+1 
033524 104443 < JUMP! ALCOND ! <RBO-INIT&3000#4> ! <RBO-INIT8777/2> > 


PAGE: 013S0M™ 


OMCGAL . MAC 18-JAN-78 16:05 START HANDLER S£0 0135 
1943 033526 EC2: BRWRTE IMM.2 s INCREMENT COUNT /TEST 
(1) 1725 MICPC=MI CPCS 
(1) 033526 netted (MOVE! WRTEBR! IMM! <2>> 
1944 033530 SP BR, ADD, SPY 
(1) 001726 MIcPCaMIChCsl 
(1) 033530 063004 <MOVE ! SPX! BR! ADD! SP4> 
1945 033532 SP I 10BA1, SPO ;POINT TO NEXT ADDRESS 
(1) 001727 MICPC=MICPC+1 
(1) 033532 023140 <MOVE ! SPX? IBUS! IOBAL!SPO> 
1946 033534 OUTPUT BR,ADD!OBAL 
(1) 001730 MICPC=MIC +1 
(1) 033534 062006 <MOVE !WROUT! BR! <ADD! OBA >> 
1947 033536 SP I 10BA2, SPO 
(1) 001731 MICPC=MICPC+1 
(1) 033536 023160 <MOVE ! SPX! IBUS! IOBA2! SPO> 
1948 354 OUTPUT BR,AC! 
(1) 001732 MICPC=MICPE+1 
(1) 033540 062107 <MOVE !WROUT ! BR! <AC!OBR2> > 
1949 033542 Cc T T 
(1) 001733 SicpcemrcPeel 
(1) o33542 101271 < JUMP! CCOND ! < TABMXT- INI T&83000#4> ! < TABMXT-INIT&77772> > 
1950 033544 ECX: BRWRTE BR, SELA!SP1 ;READ PORT STATUS 
(1) p01734 mICPC=MICPC st 
(1) 033544 660601 (MOVE! WRTEBR! BR! <SELA!SP1>> 
1951 033546 BRO 30$ ;INIT MODE, WRITE OUT 200 BYTES 
(1) 001735 MICPC=MICPC+1 
(1) 033546 116340 < JUMP! BROCON! <30$-INITS3000%4> ! <30$°1NIT8777 “2> > 
1952 THERWISE ONLY WRITE OUT ERROR COUNTERS 
1953 033550 BRWRTE BR!LDMAR,SELA!SP4 :READ COUNTER 
(1) 001736 MICPC=MICPC+1 
(1) 9 3550 070604 <MOVE !WRTEBR! BR!LDMAR! <SELA!SP4> > 
1954 3552 BRY ;ALL DONE 
(1) 001737 MICPC=MICPC+1 
(1) 033552 117346 CJUMP!BRNCON! <208-INITB3Q004> t <20S-INIT8777/2>> 
1955 033554 30S: BRWRTE BR!LOMAR,SELA ;READ CTR 
(1) 001740 MICPC=MICPCS | 
(1) 033554 070604 (MOVE !WRTEBR! BR!LDMAR! <SELA!SP4> > 
1956 033556 BR? 20s ;ALL DONE 
(1) 001741 MICPC=MICPC+1 
(1) 033556 117746 < JUMP! BR7CON! <20$—INIT83000#4> ! <20$-INIT8777/2)> 
1957 033560 OUTPUT MEMX! INCMAR, SELB! OUTOA1 :STORE COUNTS OF ERRORS 
(1) 001742 MICPC=MICPC+i 
(1) 033560 OoS6222 <MOVE ! WROUT! MEMX! INCMAR! «SELB! QUTDA> > 
1958 033562 OUTPUT MEMX! INCMAR, SELB! OUTDA2 
(1) 001743 MICPC=MICPC+i 
(1) 033562 OS6223 <MOVE !WROUT ! MEMX! INCMAR! <SELB! OUTDA2> > 
1959 033564 Sp igus : 
(1) 001744 MICPC=MI 
(1) 033564 123200 <MOVE ! SPX! TBUS! NPR! SPO> 
1960 033566 ALWAYS RKB 
(1) 001745 MICPC=MICPC+1 
(1) 033566 104640 < JUMP? AL COND? <RKB- -INIT&3000#4> ! <RKB-INIT$777 72> > 
1961 033570 208: LOMA IMM TABST ? 
(1) 001746 MICPC=MICPC41 
(1) 033570 010210 <MOVE !LOMAR! IMM! <TABST8377> > 
1962 033572 PSTATE 13 
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ERRORS DETECTED: 
DOCMP “CRF 7DS: CRF +DMCNEW, LOW] , DMCGAL 
TIME: 6 11 SECONDS’ 


RUN-T 


COR 


033872 


033872 
033874 


033574 
033576 


033576 
033600 


033600 
03360e 


033e05 


033620 
033622 


033622 
033624 


033624 


033626 


eK 
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001747 
00e4SS 
001750 
114644 
001751 
000600 

1752 

3301 


001753 
000604 


001754 
063230 


0017 

100663 
001760 
060601 


001761 
103746 


001762 
000610 


001763 
063301 


001764 
100746 
000001 


000 


0 


0 
RUN-TIME RATIO: 366/17=21.1 
— USED: 


(11 PAGES) 


Gll 


START HANDLER SEQ 0136 


CBOOT: 


BOOT: 


ie Te «<< I13-INIT8&777 72> > 
MICPC=MICPC 
MOVE! WRMEM! IMM! <<13- INIT&777/2>>> 


RM 
BLHAYS, AIL, 
< JUMP! ALCOND! <RM1-INITS3000#4> ! <RM1-INIT&77772>> 
RWRTE Aft, F00 ;MASK FOR BOOT MODE 
T 8 


BR! IMM! <200> > 
BR, AORB, SP1 ;IN PORT STATUS WORD 


MM.204 — ;MASK FOR OK TOSEND AND LINE IDLE 


ae $P10 ;IN LINE STATUS 


ALWAY 
JUMP LAL CON! ¢ZNSJ2-INITS2000%4> <INS12-INIT&777 “2> > 


BRIE BRAS 
<HOVE? URTEGR!BR! <SELA!SPI>» 


BR? 
MICPC=MICPC+1 

< JUMP ! BR7CON! <RAZ-INITS3000#4> ! <RA3-INIT8&77772> > 
BRWRTE IMM,210 

MICPC=MICPC+1 

«MOVE! WRTEBR! IMM! <210>> 


SP oe 

MICPC=MICPE+i 

«MOVE ! SPX! BR! AORB! SP 1> 

ALWAYS RAZ 

MICPC=MICPC+1 se! 
<JUNP?! ALCOND! <RA3- INITS3000#4> ! <RAZ-INIT877772>> 


CZOMGO.Pil OS-JAN-78 11:06 


1669 
1670 016324 


H1l 


GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) 


HIMAP: :HIGH SPEEDO (LOCAL) MICRO-CODE 
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Rev —-aortine TO HANDLE SUBTYPE FIELD,SELEC7 AND FINAL 
SAGE RESPONSE FIECD 
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ViW- PROCESS, CR ERCH--END OF DATA MESSAGE 


T Ae NT 
TMT oPO PRED wre SSAGE 
RED ADDRESS PIEL 
HEADER EOM 
T DATA CHARACTERS 
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DMCNEW.MAC 26-OST-77 13:33 COPYRIGHT 1975 DIGITAL EQUIPMENT CORPORATION SEQ 0141 
21 oo0000 W=0 
2 Mit OPROCESSOR INSTRUCTION WORD DEFINITIONS 
23 099909 was sOPCODE M MOVE 
S bo8500 fe ta ig COREE {Bus 
26 oooooc :SOURCVE IMMEDIATE 
27 940000 HEX 40000 ; SOURCE MEMORY 
33 eeaatale BRxeBnOD” ? SOURCE 
31 060000 DP=60000 ;SOURCE BR 
32 010000 LOMAR= 10000 :MA-LOAD MAR_LO 
33 014000 INCMAR= 14000 ; MA- INCREMENT MAR 
34 0400 WR TE SR= 100 : T-WRITE 
3S 1000 WROUTX=1000 ;DEST-EXTENDED IBUS 
36 ‘ 901400 SHF TBR=1400 ;DEST-SHIFT BR LEFT 
37 002000 WROUT=2000 : DEST-WRITE BUTPUT 
38 ope400 RN =B400 ‘Beste MEMORY 
te Ss - 
40 posgce PBRX=3400 ST WRtT 2p AND BR 
41 ; FUNCTIONS 
He oo0200 SELA=200 ;FUNCTION-SELECT 8 
44 eet AORNB=240 EFUNCTION-8- OR NOT B 
4S 000260 AANDB=260 ‘FUNCTION A AND B 
4 000300 AORB=300 :EUNCTION-8 OR 
42 00032 AXOR =320 TION A XOR B 
- etree SUBTC=360 SUBTRACT TWOS COMPLEMENT SUBTRACT 
Patan Be ae 293 Eck 
52 reat SUBC= :A- _ -¢ 
53 000060 INCA=60 i INCRENENT A 
54 000100 AC=100 A PLUS CARRY 
5s 00012 AA=120 U 
56 00014 AAC=140 if PLUS A PLUS c 
57 000160 DECA=160 !DECREMENT A 
58 -END FUNCTIONS 
es: cree 
61 sete 3=14000 
62 001000 CCOND=10 ;CONDITION C 
b3 991900 ZCOND=1400 ; CONDITION Zz 
S BRO ON= B80 : BYTION BRO 
66 002400 BR1CON=2400 : CONDITION BRI 
67 003000 BRYCON=3000 :CONDITION BRY 
68 003400 BR7CON=3400 :CONDITION BR7 
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100000 


oooo00 


M11 
MICRO INSTRUCTION DEFINITIONS 


-SBTTL MICRO INSTRUCTION DEFINITIONS 
-SBTTL BRANCH INSTRUCTIONS 


sSumP=100000 ; JUMP OP CODE 

, .SBTTL INDEXED BRANCH INSTRUCTIONS 
‘ _SBTTL MOVE INSTRUCTIONS 

MOVE=0 ;MOVE OPCODE 


Oe ee Se eres ee eset es ee ee eres esese 


PAGE: O142 
SEQ O14 


OM 
2 
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OMCNEW. MAC 26-OCT-77 13:33 INPUT/OUTPUT ASSIGNMENTS J Ceo bias 
25 TTL INe T/OUTPUT ASSIGNMENTS 
52 -FBus- ASSIGNMENTS 
sey 1p8000 het -* Py mAIN AINENCE BR REGISTER 
5e3 rater OCON=40+ 100000 teas NTROL con 
263 100060 UBADOR=60+1 0 ; 
264 100100 PORT1=100+1 ieRG 
B65 199120 PORT2=120+ 100000 CSRS 
66 10014 PORT3=140+100 CSR 
267 190160 ORT4=160+ 100000 CSR ici 
ee 190820 Uepreze0+ 100000 :BRCINTERRUPT CONTROL 
271 000020 INDAT2=20 : INPUT DATA HIGH BYTE 
272 140 =190 ! OUTPUT BA LOW BYTE 
Sa B01 BO 11BA1=100 5 euy Ba LOW BYTE 
75 0120 =] : INPUT HIGH BYTE 
76 heieetatd RCV 71880 i ARCE 
77 ny) 20 TMTCON=220 :TMTR CONTROL 
78 RCVCON=240 ?RCVR 
ES Boe REE cetTES 
~ ; 
281 o30360 Chosueae0. Cine HUMBER, Sur TCH 
283 000360 CURAINE360 | ewes "LINE UNIT MAINTAINENCE 
,EXTENDED OBUS 
000000 OINCON= ; IN CONTROL CSR 
287 990001 OMAIN=1 IM 
589 500003 SugAabD=3 ‘Ohusepy ee SR 
0000 PORT 1= ?CSRY 
592 anos SPORTS i C2Re 
293 00000 OPORTH= : 
234 909010 ONP =10 !NPR CONTROL 
295 00011 OBR=11 :BR CONTROL 
296 i UNE XTENDED OBuUS 
297 oo00000 SIND ;OUTPUT OF 
298 oo0002 OUTDALE2” ‘OUTPUT DATA LOW BYTE 
299 000003 SuTDAg= [OUTPUT DATA HIGH BYTE 
300 9000 OBAL= [OUTPUT BA LOW BYT 
OBB ee RECHT PL Buch 
BRR teres 1 Wat ro ove 
305 000011 OTMTCO=11 STMTR CONTROL 
306 000012 ORCVCO=12 RCV TROL 
307 000013 OMODEM=13 ; MODEM CONTROL 
308 000014 SYNC=14 :SYN REGISTER 
309 000017 OLUMAN=17 ‘LINE UNIT MAINT. 
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.SBTTL PROTOCOL DEPENDANT MACROS 


eecererere 


177777 MICPC=177777 ; INIT MICRO PC 
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DMC11 DDCMP MICRO CODE ASSEMBLED FOR USE WITH THE M8201 LINE UNIT SEG 0146 


. TITLE DMC11 DOCMP PROTOCOL IMPLEMENTATION 


IGHT (C) 1977 
AL EQUIPMENT CORPORATION, MAYNARD, MASS. 


C 
oI 
nat 5 He By Rotate Lire" 


Age Fo THEREOF ono” THERWISE 
AVRIL pA Ete ENCEPT ON SUCH 
HESE exe preFOR TERMS. TITLE 


ab TS one OF PSHE SOF HALL AT ALL TIMES REMAIN 


— © 
Gee 33 


oe 


INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
CE_AND SHOULD NOT = CONSTRUED AS A COMMITMENT BY DIGITAL 
PMENT CORPORATION 

C Aig th NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF 
ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. 


.SBTTL VERSION OOA FEBRUARY 26,1975 


[ olan! 


eee Oe ee es OF Ewe Oe SH et ee SH eset eres os ae 


‘SBTT 
"SBTTL HARVEY M. SCHLESINGER 

SBTTL 

‘S8TTL VERSION O08 MARCH 17,1975 

- SBTTL CSR AND MICROPROCESSOR CHANGES 
“SBTTL VER ER 6, 1975 
:SBrTL EE eT SSION cHSNEES 


-SBTTL VERSION OOD DECEMBER 3,1975 
-SBTTL TRANSMIT DONE CHANGES 


“SBTTL VERSION O1A 6&-MAY-7 
-SBTTL ACKNOWLEDGEMENT BAANCES. - ACK A MESSAGE EVEN IF NO DATA TO RETURN 


“SBTTL VERSION O18 O1-DEC-77 
“SBTTL MANY CHANGES 


TTL THE LATEST MODIFICATIONS WERE ADDED ON: 
01-DEC-77 


—_—_———— tt CT $$ 
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MICROPROCESSOR MAIN MEMORY ASSIGNMENTS SEQ 0147 


-SBTTL MICROPROCESSOR MAIN ge ASSIGNMENTS 
; ALLOCATION OF MIC nee Saat MAIN MEMORY 
=0 Ss --DYNAM 


; NAK 
NAKST=NAKSR+1 ;NAKS RECD--OvNAML Ic 


REPSR=NAKST+ : RECO--DYNAMIC 
REP peicteban rs int D--DYNAMIC 
Nr Re si : NO BUFFERS CUMUL. 
=NTLR+1  NAKS-MS HEADER 
TRENHOR* 1 tNAKS- 
NTLS=NDATR+1 NT --NO BUFFERS 


BASE=REPCR? 1 C BASE ADDRESS 
SRC=BASE+3 SSTART OF INPUT CHAIN--NEXT RECY DONE 
ERC=SRC+1 SEND OF INPUT CHAIN 
CLIZERC+1 PRECEIVE LINK #1 
RCL Z=RCU 1+ ‘om. = gD 
RCL S=RCL 2+ _ “ 95 
RCLY=RCL 345 

RCLS=RCL4+5 

RCLE=RCLS5+5 

RCL7=RCLO+5 

STCARCL 745 :START OF OUTPUT CHAIN---NEXT TMT DONE 
ETC=STC+1 SEND OF TRANSMIT CHA 
TML1=ETC+1 STRANSMIT LINK 81 
TML2=TML1+6 42 
TMC 3=TML O46 | ~ "93 
TML4=TML 346 

TMLS=TML4+6 

TMLB=TMLS+6 

ML7=TML6+6 

TMLG=TML 746 

T=TMLO+6 TYPE FIELD 
ST=T41 ; SUBTYPE FIELD 

pee reeisiz4, i TReGe OF BIT 1 OF SPIO 
cies & eu 

ie tG=ineisel : oF 2pt§ 
IMGIG=IMG14+1 IMAGE OF SP16 
IMG17=IMG16+1 IMAGE OF SP17 
TYPTAB=INGI7+1 TYPE TABLE--- 

22 TYPE TABLE REP 
TYPSTT=TYPTAB+2 :74 “ START 
55 ~ 8TACK 

BC=TYPSTT+3 : RECEIVE BYTE COUNT 
ISP11=8c+2 Pil IMAGE 

1SP12=1SP11+1 P12 IMAGE 

INCONS=1SP12+1 IN CONTROL CSR IMAGE 
RTHRS=INCONS+1 :RECY THRESHOLD LINK 


Fle 
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DOC GAH. MAC 14-DEC-77 15:07 MICROPROCESSOR MAIN MEMORY ASSIGNMENTS ee ASS 

ans ALL LOCATIONS FROM 200 ON ARE NOT WRITTEN OUT DURING A TABLE UPDATE 

463 000210 paesT=é10 ; TABLE UPDATE STATE 

464 000211 PRTST=TABST+1 ;PORT STAT 

46S 000240 NXTINT=240O ;NEXT INTERRUPT POSITION 

466 000241 NXTSP=NXTINT?41 s EMR OF PEL CHAIN 

467 000e4e INTSTK=NXTSF4#1 ;STACK INTERUPTS 

468 090400 MMEND=400 ;MAIN MEMORY E 


Gle 
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DOCGAH . MAC 14-DEC-77 15:07 SCRATCH PAD ASSIGNMENTS seo 014 
470 _SBTTL SCRATCH PAD ASSIGNMENTS 
471 oo9000 SPO= ; SPO---SCRATCH REGISTER 
47 000001 SPi=1 ;5P1---PORT STATUS WORD 
473 :BIT ASSIGNMENT 
474 ;BITO--INIT 
47 ;B1TL--NO BUFFER ASSIGNED IN BOOT MODE 
;81Te-- 
438 :B11S--DLE RECEIVED WHILE NOT IN MAINT MODE 
478 : BITH-- INTERRUPT PENDING 
4795 ! BIT6--DISCONNECT ERROR 
480 !BIT7--BOOT MODE 
481 ooo002 SP2= :SP2---TRANSMIT STATE POINTER 
4B2 900003 SP3=3  ; $P3---RECEIVE STATE POINTER 
4g 900004 Spy=4 Ss ; Spy--- V ss 
484 oo0000S SPs=S =; SPS--- CEIVE ADDRESS 
48S d00006 SPb= :SP&---END TRANSMIT ADDRES 
496 0090007 SP7=7 _ :SP7---END TRANSMIT ADDRESS 
487 000010 SP10=10 ig O---LINE STAT HORS 
488 !BIT ASSIGNMENTS 
489 : BI TO--UNNUMB PENDING 
530 iBITe--LINe Ma IN ONE {DLE 
rE sB1TS--Stamr RECEIVED" 
5s Bt Te-StaRt RODE 
495 ;BITG--HALF DUPLEX 
496 !BIT?--OK TO SEND 
497 900011 SPll=11 :SP11---R FIEL 
49e 00012 SP12=12 :SP12---N FIEL 
499 000013 SP13=13 ;SP13---TYPE 
500 000014 SPi¥=14 ;SP14---TINER ENTRY---NUMBER OF ONE SECOND TICKS 
501 900015 SP1S=1S :SP1S---RECEIV "LINK e 
502 000016 SP16=16 :SP16---POINTER TO T CTNK COPY IN MAIN MEM 
503 000017 SP17=17 :SP17---LAST MESSAGE MACKADKLEDSED 


509 


ptterer thereat teter trated th treet tattered tht tetet eretsteterstetersetet eter setetet stars 
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018386 
B1E38e 
016380 


016330 
016332 


016332 
016334 


016334 
016336 


016336 
016340 
016340 
016342 
016342 
016344 


Biea4e 
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016322 


000000 
063220 


Beszes 


oo00de 
063237 


000003 
063232 


Oco4 
1200 


Bb ieos 
803370 


863130 
Broues 


000011 
063060 


oco01le 
101414 


000013 
1004 


H1e2 


INIT--INITIALIZATION ROUTINE 


INIT: 


S$: 


10S: 


ERO Bn thee ROUT INE 


iC OGPS Waa TT FOR SECe IVE DATA‘ BOOT?) 
OR FOR RQI TO 


MLL ACCEPT ONLY BASE FORMAT. ALL OTHERS WILL RETURN A PROCEDURE ERROR 


pile an seL9, 5° --- THE HARDWARE CLEARS THE BR AND MAR 
LB, SPO ;CLEAR SPO 


“HOVE mete! REPL ERS 
ter ell 


;PAGE ONE TRANSFER ADDRESS 


BR, SEL :CLEAR SP17 
nrcpc=niceti LB!sPi7 
< 3 > 
se BR REPBLES TS ;CLEAR SP12 
MICPC=MICPC+ 
<MOVE ! SPX! BR? SELB! SP 1 12> 
our BRA < LA! OINCON> ;ZERO THE IN CONTROL CSR 
MICPC=MICPC+ 
CMOVE !WROUTX! BR! <SELA? OINCON) > 
OUT ve SELA! OOCON> ;Z2ERO THE OUT CONTROL CSR 
<MOVE ! Wh FI BR! <SELA!O0CON > 
SP Inet, 370, SP10 ;WRITE S ONE BITS TO THE HIGH ORDER 
MICPC=MICPC+1 
<MOVE ! SPX! IMM! 370! SP10> 
;BITS OF SP10 
SP SP10 :SHIFT SP10 LEFT SETTING CARRY THE 
ho VETS ee pet 
;FIRST S TIMES THRU THE LOOP 
MENIN i Re ADOC! SP3 !WRITE A ONE TO THE FIRST S MEMORY 
MhOV eF =ncrt TENCMAR!BR! <ADDC! SP3>> 
UREREMENT COU ERO THE REST 
BR, INCA, SPO NCREMENT COUN 


S 

MICPC=MICPC+41 

<MOVE ! SPX! RE INCA! SPO> 

2 1 :ALL DONE 
MICPC=MIC 


para tee-emanonoese 108 EP SING ~ 


aL eX S P GOING 
MICPC=MICPC+1 


< JUMP! ALCOND! <S$-INITS3000#4> ! eee At TO. 
WRITE A 1 TO THE BR AND SP1 


SP SELB, SP11 ;WRITE A 1 TO SP11 
MICPC=MICPC+1 

<MOVE ! SPX?8R! SELB! SP11) 

LDMA IMM, TYPTAB 

HICPC= MICPC 

SE UE IL DMBR! IMM! <TYPTABS377> > 


;POINT MAR TO TYPE TABLE 
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we 


01S00M 
SEQ 0150 
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DOCGAH. MAC 14-DEC-77 15:07 INIT--INITIALIZATION ROUTINE 
531 016360 BRWRTE IMM, 226 ;WRITE SYNC TO MEMORY 
(1) 000017 MICPC=MICPC4I 
(1) 016360 000626 (MOVE! WRTEBR! IMM! <226> > 
S32 016362 OUTPUT BR, SELB!SYNC ;LOAD THE SYNC REGISTER 
(1) oo0020 MICPC=MICPC+1 
(1) 016362 062234 <MOVE ! WROUT ! BR! <SELB!SYNC>> 
533 016364 MEMINC IMM. 3 ; REP 
(1) 000021 MICPC=MICDCHL 
(1) 016364 016403 <MOVE ! WRMEM! INCMAR! IMM! <3>> 
534 016366 MEMINC IMM.2 : NAK 
(1) oo00022 MICPC=MICPC41 
(1) 016366 016402 <MOVE ! WRMEM! INCMAR! IMM! <2>> 
535 016370 MEMINC IMM.6 ; START 
is. 7 000023 MICPC=MICPC41 
(1) G16370 016406 <MOVE ! WRMEM! INCMAR! IMM! <6>> 
536 016372 MEMINC IMM,7 : STACK 
(1) oo00024 MICPC=MICPC41 
(1) 016372 016407 <MOVE ! WRMEM! INCMAR! IMM! <7>> 
537 016374 MEMINC IMM 1 ; ACK 
(1) oo002s MICPC=MICPC41 
(1) 016374 O16401 <MOVE ! WRMEM! INCMAR! IMM! <1>> 
538 016376 LDMA IMM. TABST ;POINT TO TABLE UPDATE STATE 
(1) o00026 MICPC=M cecil 
(1) 016376 0610210 CHOVETL DMAR! MM! <TABST&377>> 
539 916400 PsTaTi 2 ; INITIALIZE IT 
(1) 0164 MEMING IMM, <<I3-INIT8&777/2>> 
(2) co00027 MICPC=MICPC41 
(2) 016400 016455 cJOVE +WRMEN? INCMAR! IMM! < <13-INITB777 49>) » 
540 016402 PSTATI NIDLE2 - INITIALIZE PORT STATUS 
(1) 016402 MEMINC IMM. <<NIDLE2-INIT&777/72> 5 
(2) 000030 MICPC=MICPC41 
(2) O16402 016472 <MOVE ! WRMEM! INCMAR! IMM! <<NIDLE2-INIT&77772> >> 
S41 016404 LDMA IMM, STC ;LOAD ADDRESS OF LAST TMT CHAIN 
(1) 000031 MICPC=MICPC41 
(1) 016404 010067 CMOVE sLDMAR? IMM! <STCB377> > 
S42 016406 MEMINC IMM. TML1 ;STORE ADDRESS OF FIRST TMT LINK 
(1) 000032 MICPC=MICPCH1 
(1) 016406 O16471 (MOVE ! WRMEM! INCMAR! IMM! <TML1>> 
543 016410 MEM IMM. TML1 
(1) 000033 MICPC=MICPC41 
(1) 016410 002471 «MOVE! WRMEM! IMM! <TML1>> 
S44 O1641e SP MENX SELB, SP16 ; INITIALIZE LAST XMIT POINTER 
(1) 000034 MICPC=MICPC+h 
(1) Ol6412 043236 <MOVE ! SPX! MEMX! SELB! SP16> 
54S 016414 LDMA IMM,S :LOAD ADDRESS OF LAST RECV CHAIN 
(1) 000035 MICPC=MICPC41 
(1) O16414 010022 <MOVE ! LDMAR! IMM! <SRC8&377>> 
S46 016416 MEMINC IMM.R ;SET UP ADDRESS OF FIRST RECV LINK 
(1) 000036 MICPC=MICPC41 
(1) 016416 016424 SOE TURMEM? INCMAR! IMM! <RCL1>> 
S47 016420 IMM. RC 
(1) 000037 MICPC=MICPC41 
(1) O16420 O02e424 <MOVE! WRMEM! IMM! <RCL1>> 
s4e8 016422 SP MEMX, SELB, SP15 
(1) 000040 MICPC=mICcPC+1i 
(l» Ole422 043235 <MOVE ! SPX! MEMX! SELB! SP15> 


Jie 


PAGE: 01520 


DDCGAH. MAC 14-DEC-77 15:07 INIT--INITIALIZATION ROUTINE SEQ 0152 
S49 016424 LDMA IMM, NXTINT ;ADDRESS OF NEXT INTERRUPT POINTER TO MAR 
(1) 000041 MICPC=MICPC c+ 
(1) oO1642e4 010240 MHOVET OMAR! IMM! <NXTINT&377>> 
550 016426 MEMINC IMM, INTSTK ; INITIALIZE NEXT INTERRUPT POINTER 
(1) oo0042 MICPC=M cPpcd1 
(1) 016426 O1664e «MOVE! M! INCMAR! IMM! <INTSTK> > 
SS1 016430 MEM IMM, INTSTK ; INITIALIZE INSERTION POINTER 
(1) 000043 MICPC=MICPC#1 
ch) 016439 002642 MOV ELWRMEM! IMM! <INTSTK> > 
sS2 0164 8 200 ;MASK TO SET RUN BIT 
(1) oo0044 MICPC=MICPC41 
(1) 016432 000600 <MOVE! WRTEBR! IMM! <200>> 
SS3 016434 Our BR, «SELB! OMAIN> ;WRITE THE RUN BIT TO MAINT CSR 
(1) o0004s MICPC=MICPC+1 
(1) 026434 O61e21 «MOVE! WROUTX! BR! <SELB! OMAIN> > 
ccy ;FALL INTO IDLE LOOP 
SSS 016436 ALWAYS TEQMe 
(1) 000046 MICPC=MICPC+1 
(1) 016436 110842 < JUMP! ALCOND! < TEOM2-INIT&3000#4> ! < TEOM2-INIT8&777/2>> 


NP NJ be NO 


Me OD OR NJ Ne Se 
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-SBTTL  IDLE--PROGRAM IDLE WOOP 
;PROGRAM IDLE LOOP 


!DISPATCHES TO APPROPRIATE SERVICE ROUTINES 
:USES STATE POINTERS FOR TMT,RCV,CSR ACTIVITY 
016440 IDLE: ’ 
016440 BRWRTE 1BUS, TMTCON 
000047 MICPC C=MIC 
016440 O20620 «MOVE ! WR TEBRE TRUSS <TATCON > 
01644 aera Aicecon PAGE2> 
o1e442 173202 < JUMP! PU Shcevsearerrncce 
016444 Il: BRURTE RCVC ;READ LINE UNIT RECEIVE CONTROL WORD 
000051 MICPC=MI nicpcel 
016444 020640 <MOVE ! WR TEBR? BUS! <RCVCON> > 
016446 .BRY A, SP3! PAGE| ;BRANCH BASED UPON RECV STATE 
oooose2 MICPC=M MIePeste 
016446 167203 <JUMP! BR4CON?BR!SELA! SP3! PAGE 1> - 
016450 12: LOMA inn ABST ;POINT TO TABLE UPDATE STATE 
000053 NICPC=I Pc$1 
016450 010210 {LOMAR? Im? <TABST&377> > 
016452 “AL MEMX, SELB, O 
oo00s4 niopcanropcs +] 
D1 6452 140620 os < JUMP! ALCOND! MEMX! SELB! 0> 
016454 BRWRTE I TMTCON 
ooo0ss MICPC=MICPC+1 
016454 020620 <MOVE ! WRTEBR? IBUS! <TMTCON> > 
16456 BRY 14 
ooo0ss MICPC=MICP C+1 
016456 103060 <TUMP TBRNCONE c14- ~INIT83000%4> ! <I4-INIT&777/2>> 
016460 freee EO 
o00057 ACPCOMI +1 
016460 100463 < JUMP! ALCOND! < IDLEO-INIT&3000#4> ! < IDLEO-INIT8&777 72> > 
016462 m I4: STATE TMTAS 
016462 5439 MC OE TUATESR: IMM! <TMTAS-INIT8777/2>> 
016464 NOP BR , SP2 
00006 1 MICPC=MICPC+1 
016464 O6034e <BR! SUB! force 
016466 Cc DLE 
oo0062 MICPC=MICPC+1 
016466 101047 < JUMP! CCOND! < IDLE-INIT&3000%4> ! CIDLESINI T3777 09 
016470 IDLEO: SPBR I UBBR , SPO TIMER EXPIRES? 
000063 ar ebcemTopeel 
016470 123620 <MOVE ! SPBRX! IBUS! UBBR! SPO> 
016472 BRY TIMSRV 
000064 MIC CPC+1 
016472 11324 COME? CON! <TIMSRV-INIT&3000#4> ! CTIMSRV-INITB777/2>> 
016474 SP IBUS, RCVCON, SPO ;READ RCV CONTROL REGISTER 
o00065 HICPC=MICEC +4 
016474 O2e32e40 <MOVE ! SPX! TBUS! RCVCON! SPO> 
016476 BRWRTE AA! SPO ;SHIFT LEFT 
000066 MICPC=MICPC+1 
016476 060520 <MOVE !WRTEBR! BR! «AR! SPO? > 
016S00 BR? Il ;RCV ACTIVE, DON’T DO PORT STATUS 
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DOCGAH. MAC 14-DEC-77 15:07 IDLE--PROGRAM IDLE LOOP SEQ O1S4 
(1) 009067 ? MICPC=MICPC+1 
(1) 016500 < JUMP! BR7CON! < I1-INIT&3000#4> ! <I1-INIT&77772> > 
sss 016502 LOMA IMM, PRTET sADDRESS PORT STATE 
(1) 900970 MICPC=MICE 41 
(1) O16S02 610211 «MOVE !L 1 IMM! <PRTST&377> > 
S86 016504 -ALWAY MEMX, SELB,O ; INDEX 
(1) 000071 MICPC=MICPC+ 
(1) O16S504 140620 < JUMP! ALCOND! MEMX! SELB! 0> 
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16522 
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016S22 
016524 
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000072 
060601 


000073 
103100 


123400 
000075 
001620 


000076 
117034 
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NIDLE@---NO CSR ACTIVITY STATE 


NIDLEe: 


NIOLE6: 
NIDLES: 


arin tt Roe rsh? CSR ACTIVITY ar AD PORT STATUS WORD 


ICPC=MICPC+1 

8 '<SELA!'SP1>> 

‘ = WR eB —_? ; INTERRUPT PENDING?---BRANCH 
MICPCeNICECS1 


'BRY tBus, INCDN eP "pe aereeerstet He) Ste INIT&77772>> 


AD INPUT CONTROL CSR 
Saere Olan ae INCON! SPO> 


RICPETIICPCS! coms seie> 
BRY INWAT1 ;IF RQI SET -- BRANCH 
hae =MIC PC+1 


'BRYCON! < INWAT1- INIT&3000#4> * {cen INIT8&77772>> 
READ THE IN CNTRL REGISTER 19 AVOID 
iA RACE IN MICRO-P READ/UNIBUS WRIT 


;SHIFT IT RIGHT 


AICECeM 1eP6#1 
CJUMP? ALCOND! < IDLE-INIT83000%4> # < IDLE- INIT&77772>> 


TATE TINT -SET STATE FOR INTERRUPT PROCESSING 
i i, <<QUTINT-INIT&77772> $ 


Micec=mrcec 

MOVE t EFRRER! Tree «couraNT- INIT&777/2>>> 

AL 

PC= 
Pai CPSP oe. ~INIT&3000#4> ! < IDLE-INIT877772>> 


01SSOM 
SEQ 0155S 
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.MAC 14-DEC-77 15:07 NIDLE2---NO CSR ACTIVITY STATE SEQ O1S6 
016526 IEIWAT: SPBR I INCON, SPO ;READ INPUT CONTROL CSR 
000102 MICPC= 1epC+1 
016526 123400 <MOVE! SPBRX! IBUS! INCON! SPO> 
16 BR 10$ ;ROYI STILL SET 
000103 MICPC=MICECs | 
016530 103505 < JUMP! BR7CON! < 10$-INIT&3000#4> ! < 1OS-INIT&777/72>> 
016532 ALWAYS INWAT 1 ;GOT CLEARED BY 11 RE-SET IT 
000104 MICPC=MICPC+1 
016532 114434 < JUMP LAL COND! < INWAT1-INIT&3000#4> ! <INWAT1-INIT&77772> > 
016534 10S: BRWRTE BR <AA'SPO> ;CHECK IEI 
000105 MICPC=MICPC+1 
016534 060520 «MOVE !WRTEBR! BR! <GA!SPO>> 
016536 BR7 ININT ;IEI SET, GENERATE INTERRUPT 
000106 MICPC=MICPC41 
016536 103603 < JUMP! BR7CON! < ININT-INIT&3000#4> ! < ININT-INIT&77772> > 
016540 INWAT2: BRWRTE I INCON ;READ INPUT CONTROL CSR 
000107 SRR CemTopeel 
O16549 120400 <MO {WRTEBR! IBUS! < INCON? > 
000110 MICPC=MICPC+1 
O16542 1 <MOVE ! SHF TBR! WRTEBR! SELB? 
16544 BRY E ;RQI STILL SET... GO AWAY 
000111 MICPC=M +1 
016544 103047 RICECSMICPCH ie INTT83000#4> «IDLE -INIT8&77772> > 
016546 PSTATE INSRY T NEXT STATE TO INPUT SERVICE 
016546 a men x» IMM | << INSRV-INIT877772) >” 
016546 ppoets < VET WAMEM! IMM MM! << INSRV-INIT&77772>>> 
016550 ALWAYS IDLE 
16 relict MOM pcr E-INIT&3000#4> ! < IDLE-INIT&77772> > 
pipes INSRV: Bus: {NCON, SPO ;READ THE INPUT CONTROL CSR 
000114 mICPCeMICE micpce | 
016552 123400 <MOVE! BUS! INCON! SPO> i 
016554 BR1 30$ ;--SENSE OR BASE 
009115 MICPC=MICPC 1 
016554 10252 < JUMP! BRICON! <30S-INIT&3000#4> ! <30$-INIT38777/2>> 
016556 PSTATE CTLSRV “ASSUME CNTL I 
016556 men MM. <<CTLSRV-INIT&77772> $ 
000116 MICPC=MICPC41 
016556 2654 cn VE! MEM! MM! <<CTLSRV- INIT877778>>» 
16 en 8 ws ;CNTL I 
016560 Ope t SG nie FOAGESA <2os-anrraa0doe#205-1N4I82277/2> 
016562 ;MUST BE BA/CC 
000120 BT ePCeMICPC+1 
016562 001620 <MOV Et 'SHF TBR! WRTEBR! SELB> 
16564 psiA E RBASRV :ASSUME IN 
016564 IAM < <<RBASRV-INIT&77772> $ 
000121 nicposHiGeC 
016564 002722 SVE TWRMEM! IMM? < <RBASRV- -INIT&777/2>>> 
016566 BRI ;REC BA’CC 
000122 RICPC=MI +1 
016566 102524 < JUMP! BRICON! <20$-INIT&3000%4> ! <20$-INIT8777/2)) 
016570 PSTATE TBASRV MIT BA/CC 
016570 MEM IMM, << TBASRV- INIT8777/2>3~ 
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14-DEC-77 15:07 NIDLE2---NO CSR ACTIVITY STATE 
900123 MICPC=MICEC+ i 
002701 nove Wwe e EEE ects INIT877772) >> 
208: BRWRTE BR, SELA!SP1 ; INIT 
000124 MICPC=M eMrepes i 
060601 <AOVE!URY BR! BR! <SELA!SP1>> 


;IF INIT MODE--ERROP 


000125 Ricecan 
102130 cee Debit 2 ance seen INIT&77772> > 
000126 oy ea 
100447 TAL COND! < IDLE- -INIT83000#4> ! < IDLE-INIT&777/2> > 
30$: INSRV1 ;IF BASE---PROCESS 
000127 RICPC=MICPCe 1 
102140 UMP! ON! < INSRV1- ~INIT83000#4> # < INSRV1- INIT877772>> 
PROCER: PSTATE NIDLE2 ;RESET PORT STATUS 
MEM IMM, <<NIDLE2-INIT877772>! 
000130 MICPC=MICPC41 
002472 <M VELURRER! Thm « <NIOLE2- ~INIT8777/2> >> 
—E IMM,100 ;CLEAR INPUT CONTROL CSR 
000131 mICPC=MICPCt I 
000500 (MOVE! WRTEBR! IMM! <100>> 
T BR, AANDB! OINCON $3 
132 MICPC=MICPC+1 
061260 <MOVE ! WROUTX! BR! <AANDB! OINCON> > 
LDMA IMM, <<RTHRS+23> > ;ADDRESS ERROR LINK 
000133 MICPC=MICPC41 
010177 CMOVE 1LONAR! IMM! < <RTHRS+3> 8377) > 
MEMINC IMM 
000134 MICPC=MICPC41 
016402 <MOVE ! WRMEM! INCMAR! IMM! <2>> 
MEM inn 0 
000135 MICPC=MICPC+i 
002400 <MOVE ! WRMEM! IMM! <O>> 
OUTPUT MEMX, SELB! OMODEM ;CLEAR DATA TERMINAL READY 
000136 MICPCaMICPC Pc+i 
042233 OUT! MEMK! «SELB! OMODEM> > 
ALWAYS RCEXX ;POST THE ERROR - FATAL 
000137 nICPCsM =MICPC+1 
114474 <JUMP! AL COND? < RCEXX-INIT&3000#4) ! <RCEXX-INIT8777/2>> 
INSRV1: BRWRTE BR, AXORB!SP1 ; INIT MODE? 
000140 MICPC=MICP +1 
060721 is VE! WRTEBR? BR! <AXORB! SP1>> 
000141 MICPC=MICPC+1 
102130 < JUMP! BROCON! < PROCER-INIT&3000#4> ! <PROCER-INIT8777/2> > 
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BASSRV---- BASE SERVICE ROUTINE 


SBTTL NIDLES BASE SERVICE ROUTINE 


BASSRV: fern" DAR Ee oLe2-1NI78777/2>> 


BSI: 


8so: 


CPC=MICPC41 
“OVE UAMER! IMM! ¢<NIDLE2- -INIT&77772> >> 


RIC Pett 
iches ster! fn: <BASEB377> » 
MINC IBUS, PORT1 ;READ CSRY 


pPC+1 
ER? TNCHAR! TBUS! <PORT1> > 
is - BUS POR ;READ CSRS 
Chul 


hrenen 00s: ponte» 


men 
MT CPCeMTORE Post 
<MOVE !WRMEM! IBUS! <PORTY> > 


SAP am 


;READ INPUT CONTROL CSR 
;CLEAR THE BR 


;CLEAR THE INCONTROL CSR 


se ernest | 
Cc 


<HOVE THROU! Thm < 120! OMODEM > 
MICPC=M a 
SiGe Odes MEMX! <SELB>> JIF SET RESUME 


M =M 
nicpcs BAIC pees Gmina oy = -INIT8&77772>> 


;MASK FOR HDX AND OTR 


;READ SEL6 


LOMA Init ADDRESS OF TYPE FIELD 
< , Bak MM! <78377>> 
MERINC TNA IMM iI ;WRITE START TYPE TO MEMORY 
COVE WANE NCMAR! IMM! <&>> 
MEM Bn ADS ;WRITE SELECT AND FINAL TO MEMORY 
rece ides} rt! «00>» 
Wee TURN OFF INIT MODE 

RICPC=MICE CR ns, 
< 4 

PONE 241 ;SET OK TO SEND,STARTMODE AND UNNUM PENDING 


B 
BRABccmrepcdi 
<MOVE ! WRTEBR! IMM! <241>> 


SP ,SP14 ;RESET REP COUNTER 
CROvE SBR: Tr 

<MOVE ! SPX! IMM!374!SP14> 

ALWAYS SA3 

MICPC=MICPC+ 


JUMP? ALCOND! <SA3- -INIT&3000#4> ! <SA3-INIT&77772>> 


PAGE. 5°47" 


;CLEAR TO MAR SO IT POINTS TO BASE POINT 
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DOCGAH. MAC 14-DEC-77 15:07 BASSRV---- BASE SERVICE ROUTINE SEQ 0159 
687 016672 RESUME: SP kin SP4,4 :SET UP SP4Y FOR COUNTING NPRS 
(1) 000164 MICPC=MICPC41 
bas ol eeoa os OVE SP NCR, SP 10 SET UNNUMB MESSAGE PENDING TO 
88 000165 Ricpcemr epee t : : 

(1) 016674 063070 «MOVE! SPX! BR! INCA! SP10> 

689 ; TRICK TRANSMITT R CODE 

690 016676 i tADORESS BASE TABLE ADDRESS 

ct) 1667 eres Nore eS yet <RASERST?> 
3 > 

£4] 818528 SHOVE PURGE :SET TMTR STATE TO ENTER TABLE UPDATE 

(1) 000167 MICPC=MICPC+1 

(1) 0167 000731 <MOVE 2 WRT ! IMM! <FUDGE-INIT&77772> > 

6392 0167 ALWAYS ;GO SET UP MXT BITS AND ADRESS OF BASE FOR NPRS 

(1) 000170 Ar eB Comte C+1 

(1) 016702 110463 «JUMP? ALCOND$ <TBQ-INIT&3COO#4> : < TBO-INIT8&777/2>> 

693 016704 ee BS2: Rice get 

(1) 0167 Boa tss T{'bmpR! MM! <IMG $377>? 

oa 167 SP » eee, INCHAR, 103 SP10 ;RESTORE BIT 1 OF SPIO 
= * 

(1) 016706 pe94 75 CASV & 2 9) TTS 

695 016710 we SP MEMX! INCMAR, SELB, SP11 ;RESTORE SP11 

(4) 01671 929327 (ROVE SPX NEMA? INCHAR: SELBESP11> 

6 1671 SP MEMX! INCMAR, SE ;RESTORE SP1S 

(1) giezie os7ea¢ MOVE? SPX! MEMX? INCHAR! SELB! SP1S> 

64? BIBS ts ; MEMX, SELS, OBR ; RESTORE SP17 

(1) 000175 MICPC=MICPC+1 

(1) 016714 043237 <MOVE ! SPX! MEMX! SELB! SP17> 

698 016716 SP mE NX SELB, SPi2 ; RESTORE sP12 

(1) 000176 HICPC=NIC +1 

(1) 016716 043232 «MOVE! x) Pero) S681 9°12) 

639 016720 SP BR DE ;TURN OFF UNNUM MESSAGE PENDING AND 

(i) 000177 MICPC=MI 

(1) 016720 063170 Boe eee occa! sP10> 

700 ;ZERO THE BRG 

701 016722 Sp nee DECA,SP1 :CLEAR INIT MODE 

(1) 000200 MICPC=MICPC+1 

(1) 016722 063161 <MOVE! SPX!BR! {DECA!SP1> 

th sw gaged} niecer micpesy 

(1) 016724 606 ‘ IMM! <206>> 

$43 16726 NAK 

(1) 000202 GETS. eK! 

(1) 016726 114424 < JUMP! AL OND! <NAK 1 - -INIT&3000%4> ! <NAKL-INIT877772>> 

704 016730 ININT: STATE 

(1) 0167 MEM MM, << INWAT2-INIT&777 72> > 

(2) 000203 nICPceM P : 

(2) 016730 002507 OVE: amicecs MM! << INWAT2- ~INI18777/82>> 

70S 016732 BRUR —E IMM1S MASK FOR TURN OFF ALL BUT EXT MEM BITS + NXM 

(1) g1e73e bobdie MOVE THATE Bat rm 

She Bt E536 SP tBus BR éeo :READ BR CONTROL REG 

(1) ooo20s Scpcantcreal 


E13 


3 PAGE: O1600M 
DDCGAH. MAC 14-DEC-77 15:07 BASSRV---- BASE SERVICE ROUTINE SEQ O160 

(1) 016734 123220 <MOVE ! SPX! IBUS! UBBR! SPO> 

707 016736 SP BR. AANDB, SPO :MASK OFF VECTOR TO xO¥4 

(1) o00206 MICPC=MICPC+1 

(1) 016736 063260 <MOV T SPX! BR! AANDB! SPO 

708 016740 BRWRTE IMM, 200 ;MASK FOR INTERRUPT 

(1) 000207 MICPC=MICPC41 

(1) 016740 000600 «MOVE !WRTEBR! IMM! <200>> 

709 016742 ALWAYS RBY 

(1) 000210 MICPC=MICPC+1 

(1) Ole742 104457 < JUMP! ALCOND! <RB4Y-INIT&3000#4> ! <RBY-INIT8&777 72> > 
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CGAH. MAC 14-DEC-77 15:07 OUTINT---SET UP OUTPUT INTERRUPT [RDYO] SEQ O16) 
711 _SBTTL OUTINT---SET UP OUTPUT INTERRUPT [RDYO] 

712 016744 OUTINT: 

714 016744 PSTATE PINT2 

(1) 016744 MEM IMM, <<PINT2-INIT8&777/2> > 

(2) 000211 MICPC=MICPC4i 

(2) O16744 O02626 <MOVE ! WAMEM! TMM! <<PINT2- -INIT877772> >> 

719 : COMPLETION 

720 016746 LDMA IMM, NXTINT sADDRESS OF NEXT INTERRUPT POINTER 
(1) 000212 RICPC=MICPCH1 

(1) 016746 010240 <MOVE ! LOMAR! IMM! <NXTINT8&377> > 

721 016750 LDMA MX, SELB :NEXT INTERRUPT 

(1) 000213 RICPC=MIC +1 

(1) 0167 oS0220 <MOVE ! LDMAR! MEMX! <SELB> > 

722 0167 SP IBUS, OCON, SPO ;READ THE OUTPUT CONTROL CSR 

(1) oog214 MICPC=M cpc+ 

(1) 016752 123040 <MOVE ! SPX! TBUS! OCON! SPO> 

723 016754 OUT <MEMX! INCMAR> , <AORB! OOCON> ;WRITE THE OUT CONTROL CSR 
(1) 000215 Crave tango! 

(1) 016754 OS5302 <MO !WROUTX? MEMX! INCMAR! <AORB! OOCON? > 

724 016756 mx, SELB ;ADDRESS LINK 

(1) 000216 HICPC=MIC 

(1) 016756 oS0220 Ue et cam: By 

725 016760 BRWRTE <BR! INCMAR>, <AA!SPO> :KICK PAST LINK STATUS BYTE 
(1) 000217 MICPC=MICPC41 

(1) 016760 074520 (MOVE ! WRTEBR! BR! INCMAR! <AA!SPO> > 

726 SHIFT CSRO IMAGE LEFT 

727 ***#D0 NOT CHANGE BR UNTIL SR7*## 
728 016762 OUT <MEMX! INCMAR> , «SELB! OPORTI> ;WRITE LOW BYTE OF BA TO CSR 
(1) 000220 MICPC=MICPC+1 

(1) 016762 OSS5224 <MOVE ! WROU X!MEMX! INCMAR! <SELB! OPORT1> > 

722 016764 OUT <MEMX MX! INCHAR> , <SELB! OPORTe> ;WRITE HIGH BYTE OF BA TO CSR 
(1) 000221 MICPC=MICPC+1 

(1) O16764 OSSee5 CMOVE !WROUTE MEIN! INCHARZ (SELBsgngeTe> > > 
730 016766 OUT <SELB! OPORTY> ;WRITE HIGH BYTE OF COUNT TO CSR 
(1) oo0222 SU pcemrcpes 1 

(1) 016766 OSS227 CMOVE ! WROUTX' MENX? INCMAR? «SELB! OPORTM) > 

731 016770 OUT <MEMX! INCMAR> , <SELB! OPORT3> ;WRITE THE LOW BYTE OF COUNT 
(1) 000223 MICPC=MICPC+1 

(1) 016770 OSS226 <MOVE ? WROUTX? MEMX? INCMAR! «SELB! OPORT3» »> 

732 £#HERE IS BR7## 

733 016772 BR? PE1 : INTERRUPT ENABLE IS SET 

(1) oo00224 MICPC=MICPC+1 

(1) 016772 103751 < JUMP! BR7CON! <PE1-INIT&3000%#4> ! <PE1-INIT8&77772>> 

734 ;GENERATE AN INTERRUPT 

736 016774 YS IDLE 

(1) 000225 MICPC=MICPC+1 

(1) O16774 100447 < JUMP! ALCOND! < IDLE-INIT&3000#4> ! < IDLE-INIT&777/2>> 

737 016776 PINT2: PSTATE OUTWAIT 

(1) 016776 MEM IMM, <<OUTWAIT-INIT&77772>> 

(2) oo00226 MICPC=MICPC41 

(2) 016776 O02647 «MOVE! WRMEM! IMM! < <OUTHAIT- -INIT&77772>>> 

742 017000 LDMA IMM. NXTIN ;ADORESS NEXT INTERRUPT QUEUE 

(1) 000227 MICPC=MICPC41 

(1) 017000 010240 «MOVE! LOMAR! IMM! a meat > 

743 «617002 SP MEMX, SEL :COPY ADDRESS FOR NEXT INT TO SPO 
(1s 000230 MICPC= enrcpcel 
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PAGE: 01620M 
14-DEC-77 15:07 OUTINT---SET UP OUTPUT INTERRUPT [ROYO] SEQ Olb2 
043220 CMOVE ! SPX! MENX# SELB! SPO? 
MM, INTSTK :ASSUME WRAP AROUND CASE 
000231 MICPC=MICPC41 
oo02642 <MOVE ! WRMEM! IMM! <INTSTK> > 
BRWRTE IMM. <<MMEND-e> > ;ADDRESS OF LAST INT IN STACK 
000232 MICPC=MICPC41 
000776 <MOVE ! WRTEBR! IMM! < <MMEND-2> >> 
CMP BR, SPO ;SHOULD WE WRAP 
000233 MICPC=MICPL+1 
060360 <SUBTC! BR! SPO> 
Z S$ ; YES--BRANCH 
000234 MICPC=MICPC+1 
101637 < JUMP! ZCOND! <S$-INITS&3000#4> ! <S$-INIT&77772>> 
BRWRTE IMM,2 ;OFFSET FOR NEXT POINTER 
000235 MICPC=MICPC41 
a00402 (MOVE! WRTEBR! IMM! <2>> 
MEM BR, ADD! ;UPDATE POINTER 
000236 MICPC=MICPC+1 
062400 <MOVE ! WRMEM! BR! <ADD!SPO> > 
Ss: SP MEX SELB, SPO -COPY POINTER TO SPO 
000237 MICPC=MICPC+1i 
043220 «MOVE ! SPX! MEMX! SELB! SPO> 
LDMA IMM, NXTSP ;PICK UP START OF IN QUEUE 
000240 MICPC=MICPC41 
010241 <MOVE ! LOMAR! IMM! <NXTSP8&377> > 
CMP MEMX, SPO ; COMPARE TO END 
000241 MICPC=MICPC+1 
040360 <SUBTC! MEMX! SPO> 
Z 10$ ;IF EQUAL--CLEAR INT PENDING 
ooo242 MICPC=MICPC+1 
101644 < JUMP! ZCOND ! < 1O$-INIT&3000#4> ! < 10$-INIT&77772>> 
ALWAYS IDLE 
000243 MICPC=MICPC+1 
100447 < JUMP! ALCOND! < IDLE-INIT&3000#4> ! < IDLE-INIT8777/2>> 
10$: BRWRTE IMM, 357 ;MASK TO CLEAR INT PENDING 
oo00244 MICPC=MICPC41 
000757 <MOVE !WRTEBR! IMM! <357>> 
CLRIDL: SP BR, AANDB, SP1 
000245 MICPC=MICPC+1 
063261 <MOVE ! SPX! BR! AANDB!SP1> 
ALWAYS IDLE 
oo0246 MICPC=MICPC3 1 


100447 < JUMP! ALCOND! < IDLE-INIT&3000#4> !< IDLE-INITS77772>> 
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4y7 
440 
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103447 
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000257 
002113 
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116365 
000262 
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010e11 
000266 
00e47e 


000267 
100447 
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OUTWAI--WAIT FOR RDYO TO GO AWAY 


. SBTTL ee neon a FOR RDYO TO GO AWAY 
OUTWAI: SPBR IBUS, 0 ;READ OUTPUT CONTROL CSR 


i SET asco so 
5 OLE 


MICPC=MIC 

sens INTTE3Q00 RY EcAPRE BETE??? “©?” 
= 

oy VE! WRTEBR! mt « 00>> 

MICPC=MI Rane 


+ 
<MOVE ! WROUTX! BR! <OOCON! AANDB> > 


ALWAYS rei 
Ae +1 
*ALCOND! < INS13-INIT&3000#4> ! <INS13-INIT&777/2>> 
agent CTLSRY--CNTL I SERVICE 


CTLSRV: PORTY, SPO ;TO SPO 
pier tee se 
BUS! PORT4! SPO> 
Rieec =MICPC+1 
<M TBR! WRTEBR! SELB> 
» HOSEL ,IF SET IS HALF DUPLEX 
Btoc on L-INIT8&3000%*4> ! <HDSEL- ~INITB777 2 » 
outeut nM» oe eBPBhREE MASK DTR, TURN OFF HDX 
OY CPE eMICRCHI 
cMOVE tWROUT! IMM: < 100% OMODEM? > 
INS11: BRWRTE <SELA! SPO> ;RESTORE THE CNTL WORD 


BREE emIppest , 
MAO VETWRTEBR! DP! <SELA! SPO> > 
of ;IF SET IS BOOT 


RIceCNIGeCe 
alle BROCON! <cB90T=1NiTB3O0*4>! <cBOOT- -INIT&77772>> 

INS12: ABS INCON READ THE INPUT CONTROL CSR 
RICPC= =MI 


«MOVE SPX! IBU Sic rncont sPa> 
RWR 


TE IMM, 100 :2ERO THE BR REGISTER EXCEPT INT ENABLE 

MICPC= Icpctt 

VE! WRTEBR! IMM! <100>> 

T BR, <AANDB! OINCON> :CLEAR IN CONTROL CSR 
mICPc=M cPt+1 

‘ ou X!BR! <ARNDB! OINCON> > 
LDMA MM, PRTST ; ADDRESS PORT STATE 
MICPC=MICPC41 
<MOVE !LOMAR! IMM! <PRTST&377> > 
INS13: PSTATE NIDLE2 


E IMM, <<NIDLE2-INIT&77772> > 
MICPC=MICPC41 
SHOVE WRMEM! IMM? < <NIDLE2- -INIT8777/2>>> 
ALMA AYS IDL 
MICPC=MICPC+1 
< JUMP! ALCOND! < IDLE-INIT&3000#4> ! < IDLE-INIT8&777/2>> 
Tagmxt: §P IBUS, UBBR, SPO ;READ BR CONTROL 
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PAGE: O164OM 
MAC 14-DEC-77 15:07 CTLSRV--CNTL I SERVICE SEQ 0164 
000270 MICPC=MICPC+1 
017102 123220 <MOV OVE! SPX: IBUS! UBBR! SPO> 
017104 BRWRTE IMM, 115 ;MASK TO CLEAR 8© REG 
000271 MICPC=M MIGPCsI 
017104 000515 (MOVE !WRTEBR! IMM!<115>> 
017106 SP BP SPO 
0272 MICPC=MICPC+1 
017106 3260 <MOVE ! SPX! BR! AANDB! SPO> 
017110 BRWRTE IMM,4 s INCREMENT MXT 
000273 MICPC=MICPCS 1 
017110 oo0404 <MOVE ! WRTEBR? TMM! <4) > 
017112 OUT BR, ADL! OBR 
000274 MICPC=MICPC+1 
017112 061011 <MOVE ! WROUTX! BR! <ADD! OBR> > 
017114 ALWAYS ECX 
000275 MICPC=MICPC+1 
017114 114743 < JUMP! ALCOND! <ECX-INIT&3000%4> ! <ECK- ~INIT8777/ 2>> 
017116 HDSEL: BRWRTE IMM, 100 HD MASK TO BR 
000276 MICPC=MICPC41 
017116 o00500 «MOVE! WRTEBR! IMM! <100>> 
017120 SP BR, AORB, SP10 ;UPDATE PORT STATUS WORD 
000277 MICPC=MICPC+1 
017120 063310 <MOVE ! SPX! BR! AORB! SP10> 
017122 ALWAYS INS1i 
000300 MICPC=MICPC+1 
017122 100660 < JUMP! ALCOND! < INS1L1-INIT&3000%4> ! < INSI11-INIT&77772> > 


SSity 


PAGE: O16SDM 

DDCGAH. MAC 14-DEC-77 15:07 TBASRV--TRANSMITTER BUFFER ADDRESS SERVICE SEQ 0165 

794 _SBTTL TBASRV--TRANSMITTER BUFFER ADDRESS SERVICE 

795 017124 TBASRY: LDMA IMM, ETC ;GET POINTER TO END OF TMT CHAIN 

(1) 000301 MICPC=MICPC41 

(1) 017124 010070 <MOVE! LDMAR! IMM! <ETC8377>> 

79% 017126 LOMA MEMX, <SELB!SPX! SPO> ;FIND THE LINK 

(1) 000302 MICPC=MICPC+1 

(1) 017126 OS3220 <MOVE ! LOMAR! MEMX! <SELB!SPX!SPO>> 

797 (017130 MEMINC IMM. 1 :BUFFER ASSIGNED IN IN LINK FLAGS 

(1) 000303 MICPC=MICPC41 

(1) 017130 016401 <MOVE EMRMEM? INCMARS IMM! < 1>> 

798 017132 BRWRTE <IMM! INCMAR>, TMLE ;POINT PAST NUMBER FIELD 

(1) 000304 MICPC=MICPC+1 

(1) 017132 014543 (MOVE! WRTEBR! IMM! INCMAR! <TMLS> > 

739 ;SET BR FOR ADDITION TO SPO 

g00 017134 MEMINC IBUS,PORT1 

(1) 000305 MICPC=MICPC+1 

(1) 017134 136500 (MOVE ! WRMEM! INCMAR! IBUS! <PORT1> > 

801 017136 MEMINC I8US.PORT2 

(1) 000306 MICPC=MICPC+1 

(1) 017136 136520 < MOVE! WRMEM! INCMAR! IBUS! <PORT2> > 

go2 017140 MEMINC IBUS,PORTY 

(1) 000307 MICPC=MICPC+1 

(1) 017140 136560 <MOVE ! M! INCMAR! IBUS! <PORT4> > 

803 017142 MEMINC IBUS,PORT3 

(1) 000310 MICPC=MICPC+1 

(1) 017142 136540 «MOVE ! WRMEM! INCMAR! IBUS! <PORT3> > 

B04 017144 LDMA IMM. ETC 

(1) 000311 MICPC=MICPC41 

(1) 017144 910070 <MOVE! LOMAR! IMM! <ETC&377>> 

80S 017146 MEM IMM. TMLi :ASSUME QUEUE WRAP AROUND 

(1) 000312 MICPC=MICPC41 

(1) O17146 posaet «MOVE! WRMEM! IMM! <TML1>> 

806 017150 CMP BR, SPO ;END OF CHAIN? 

(1) 000313 MICPC=MICPC+1 

(1) 017150 060360 <SUBTC! BR! SPO> 

867 017152 2 103 ; IF YES--BRANCH 

(1) 000314 MICPC=MICPC+1 

(1) 017152 101717 < JUMP! ZCOND! < 1O$-INIT&3000#4> ! < 10$-INIT&77772>> 

gos 017154 BRWRTE IMM 6 ; QUEUE ENTRY LENGTH 

(1) 000315 MICPC=MICPCS 1 

(1) 017154 OO00406 (MOVE !WRTEBR! IMM! <6>> 

g03 017156 MEM BR, ADD! SPO ;UPDATE THE END POINTER IN MEMORY 

(1) 000316 ' MICPC=MICPC+1 

(1) 017156 O62400 <MOVE !WRMEM! BR! <ADD! SPO> > 

810 017160 10$: BRWRTE IMM 2 :NUMBERED MSG PENDING MASK 

(1) 000317 MICPC=MICPC41 

(1) 017160 000402 (MOVE! WRTEBR! IMM! <2>> 

811 017162 SP AORB, SPIO ;UPDATE LINE STATUS 

(1) 000320 MICPC=MICPC+1 

(1) 017162 063310 <MOVE ! SPX! BR! AORB! SP10> 

Ble 017164 ALWAYS INS1l2 

(1) 000321 MICPC=MICPC+1 3s 

(1) 017164 100662 < JUMP! ALCOND! < INS12-INIT&3000#4> ! < INS12-INIT8&77772>> 

813 -SBTTL RBASRV--RECEIVE BUFFER ADDRESS SERVICE 

614 017166 RBASRV: LOMA M,ERC ;ADDRES END OF RECEIVE CHAIN 

(1) 000322 MICPC=MICPC41 
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DDCGAH. MAC 14-DEC-77 15:07 RBASRV--RECEIVE BUFFER ADDRESS SERVICE 
(1) 017166 010023 <MOVE! LOMAR! IMM! <ERC8377>> 
81S 017170 LDMA MEMX, «SELB! SPX! SPO> :GET THE POINTER TO LINK 
(1) 000323 MICPC=MICPC+1 
(1) 017170 053220 <MOVE ! LOMAR! MEMX! <SELB! SPX! SPO> > 
816 01717 MEMINC IMM. 1 
(1) 000324 MICPC=MICPC41 
(1) 017172 016401 <MOVE! M! INCMAR! IMM! <1>> 
817 017174 MEMINC I PORT 1 
(1) 000325 MICPC=mMICPC+1 
(1) 017174 136500 <MOVE! M! INCMAR! IBUS! <PORT1>> 
818 017176 MEMINC I PORT2 
(1) 000326 nIcPC=N cece 
(1) 017176 136520 <MOVE ! M! INCMAR! IBUS! <PORT2> > 
819 017200 MEMINC I PORTY 
(1) 000327 MICPC=MICPC+1 
(1) 017200 136560 <MOVE !WRMEM! INCMAR! IBUS! <PORTY> > 
820 017202 MEMINC IBUS,PORT3 
(1) 000330 MICPC=MICPC+1 
(1) 017202 136540 <MOVE ! WRMEM! INCMAR! IBUS! <PORT3>> 
821 ..: NOTE INVERTED ORDER OF PORT 3 AND PORTY 
ro6j atheats 000331 cone M bec ~ 
(1) 017204 010023 CMOVE!LDMAR! IMM! <ERC&377>> 
823 017206 MEM int RCLi ;ASSUME WRAP AROUND CASE 
(1) 017208 basded aE! bee cca 19> 
B24 pi7e0e BRWRTE IMM RCL7 ;GET ADDRESS OF END OF CAHIN AREA 
(1) 000333 MIC sMICPCHI 
(1) 017210 Ooo00%62 (MOVE! WRTEBR! IMM! <RCL7>> 
825 O172le CMP BR, SPO ;CHECK FOR END 
(1) 000334 MICPC=MICPC #1 
(1) 017212 060360 <SUBTC! BR! SPO> 
826 017214 2 INSle ; IF EQUAL BRANCH 
(1) 000335 MICPC=MICPC+1 
(1) 017214 101662 < JUMP! ZCOND! < INS12-INIT&3000#4> ! < INS12-INIT8&777/2>> 
827 017216 BRWRTE IMM.S ;CALCULATE ADDRESS OF NEXT LINK 
(1) 000336 MICPC=MICPC41 
(1) 017216 900405 (MOVE !WRTEBR? Il? <5) > 
828 017220 MEM ADD! SPO ; 
(1) 000337 MICPC=MICPC+1 
(1) 017220 O62400 (MOVE! WRMEM! BR! «ADD! SPO>> 
829 017222 ALWAYS INnsie s EXIT 
(1) 000340 MICPC=MICPC+1 
(1) 017222 100662 < JUMP! ALCOND! < INS12-INIT&3000#4> ! < INS12-INIT&77772> > 
830 017224 RAL: BRWRTE IMM, 357 :MASK TO CLEAR CLR ACTIVE 
(1) 000341 MICPC=MICPC41 
(1) o17224 000757 (MOVE !WRTEBR! IMM! <357>> 
831 017226 SPBR BR, AANDB, SP10 :CLEAR BIT IN LINE STATUS WORD 
(1) 000342 MICPC=MICPC+1 
(1) 017226 063670 (MOVE ! SPBRX! BR! AANDB! SP10> 
832 017230 BRSHF T 
(1) 000343 MICPC=MICPC+1 
(1) 017230 001620 (MOVE ! SHF TBR! WRTEBR! SELB> 
833 017232 BRY FLUSH 
(1) 000344 MICPC=MICPC+1 : 
(1) 017232 107015 < JUMP ! BRYCON! <FLUSH-INIT&3000#4> ! <FLUSH-IiNNIT8777 72> > 
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DOCGAH. MAC 14-DEC-77 15:07 RBASRV--RECEIVE BUFFER ADDRESS SERVICE GE; ast gn 

834 017234 RA3: BRWRTE IMM,O ;CLEAR BR 

(1) 000345 MICPC=MI cpct1 

(1) 017238 000400 HOVE! WR TEBRE Tha" <2 

835 0172 SP Sp ;SET NUMB MESSAGE TYPE IN SP13 

(1) 000346 RICPCAMIEEOTT 

(1) 017236 063232 < HOVE ! SPX! BR! SELB! SP13 

836 017240 STAT RCVB ;CHANGE RECEIVE STATE POINTER TO STATE B 

(1) 000347 MICPC=MICPC+1 

(1) 017240 000427 <HOVE LURTEBR! THM! <RCVB- -INIT&777/2>> 

837 017242 ALWAYS REXIT 

(1) 000350 MICPC=MICPC+1 

{22 o172e42 «104425 < JUMP! ALCOND! <REXIT-INIT&3000#4> ! <REXIT-INIT&777/2> > 
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PAGE: O1680M 
DDCGAH. MAC 14-DEC-77 15:07 RBASRV--RECEIVE BUFFER ADORESS SERVICE SEQ 0168 
840 017244 PEL: Ricecs IMM, 300 ;MASK FOR INTERRUPT AND VECTOR 
( - 
‘L oizzws BBB78R CASVETTATES Rt res ca00> 
841 017246 BR, SPO ;READ BR CONTROL REG 
(1) o003S2 nicecenrcece! 
(1) O1724%% 123220 <MOVE ! SPX! IBUS! UBBR! SPO> 
g4¥2 017250 nie BRA < <AORB! OBR> ; INTERRUPT 
(1) 0353 mn cpceHicr Pt+1 
(1) 017250 1311 MARSUTX? BR! <AORB! OBR? > 
844 017252 al uey g IOLE 
(1) 000354 MICPC=MICPC+1 
622 017252 100447 < JUMP! ALCOND! < IDLE-INIT&3000#4> ! < IDLE-INIT&777/2> > 
sso 017254 HALTED: BRA EME 
(1) 000355 RAIEP 
(1) 017254 000676 MOVE WR TERR? EME- -INIT&77772>> 
851 ;FALL_INTO ACLOW 
gS2 017256 ACLOW: SP LB,SP3 ?CHANGE RECEIVE STATE POINTER 
(1) 917258 beses3 RICPCSMIERLST oes, 
343 17 ROME IMM, 2 ;CAUSE AN AC LOW 
(1) 000357 MICPC=MICPC41 
(1) 017260 oo0402 CMOVE !WRTEBRE IMM? <2 > 
854 017262 Rye <SELB! OBR? 
(1) 900380 M cover perl 
(1) 017262 1231 Xx? BR! <SELB!OBR>> 
855 017264 ba S$: 8 a UBBR ;WAIT FOR IT TO COMPLETE 
= + 
(1) 17 64 120620 SaSreTIAe | unt enanss 
eS6 7266 
(1) 000362 MICPC=MICPC+1 
(1) 017266 102761 < JUMP! tBR ONE RSSPATBRGEg NY *<SS-INET8777/277 
857 017270 tea GE3 
(1) 000363 fm PC=MI 
ie) 017270 174603 UMP! ALCONO! BR! SELA! SP3! PAGE3> 
859 017272 tBul: BRWRTE é NPR 
(1) 000364 MICPCSMI Beet 
(1) 017272 120600 SHOVE! WR TEBR! TBUS! NPR > 
860 017274 ie B 
gh) 017274 eet ton FORGES coe INIT&3000#4> ! < IDLE-INIT&77772>> 
(1) 000366 AICPC= SMIEPE+1 
(3) 017276 =114734 < JUMP! ALCOND! <Ece- ~INIT&3000%4> ! <EC2-INIT8&777/2>> 
863 . 
864 017300 SOVRRUN: BRWRTE IMM,4 
(1) 000367 MICPC=MICPC41 
(1) 017300 oo0404 <HOVE ZHRTEBR! THM! <> > 
865 017302 ALWAYS TRSO 
(1) 00037 RIGPC=N 1cPe +1 
(1) 017302 11463 < JUMP B!ALCOND! <NTRSO-INIT&3000#4) ! <NTRSO-INIT8777/2>> 
866 017304 HEH1: STATE 
(1) 000371 RICPEEMICPR HL 
(1) 017304 900704 SUE RTEBR: IMM! “TEOM-INIT8777/2>> 
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14-DEC-77 15:07 RBASRV--RECEIVE BUFFER ADDRESS SERVICE 
ALWAYS XEXIT 
000372 MICPC=MIC +1 
110556 < JUMP! ALCOND! <XEXIT-INIT&3000#4> ! <XEXIT-INIT8&77772>> 
ACK1: BRWRTE TI 7 
000373 MICPC=MICPC41 
00072:” (HOVE! WRT me Jatt < 7>> 
000374 MICPCaNICr Cs | 
063270 <MOVE? el eames 
000375 MICPC=MIC 
104504 < JUMP! AL COND! <RDS- -INIT&3000#4> ! <RDS-INIT877772> > 
RKY: BRO IOLE 
000376 MICPC=MICPC#+1 
102047 < JUMP! BROCON! < IDLE-INIT&3000#4> ! < IDLE-INIT&77772>> 
always RKS 
000377 MICPC=MICPC+1 
104647 ; < JUMP! ALCOND! <RKS-INIT&3000#4> ! <RKS-INIT8777/2>> 
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DDC GAH. MAC 14-DEC-77 15:07 RBASRV--RECEIVE BUFFER ADDRESS SERVICE SEG 495 
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017322 .ZINTT+1900 
000377 MICPC=3 

.SBTTL RCVA--ROUTINE TO HANDLE FIRST DDCMP CHARACTER 

;ENTERED FROM IDLE LOOP 

:DETERMINES IF MESSAGE TYPE IS NUMBERE UNNUMBERED OR 800T 
‘SETS UP APMOPRIATE STATES FOR REST OF OnbSon 


017322 Reva: §P IBUS, RCVDAT, SPO ;READ RECEIVES CHARACTER TO SPO 
000400 MICPC=MICPC+1 

017322 623200 <MOVE ! SPX! IBUS! RCVDAT! SPO> 

017324 BRWRTE BR,SELA!SP1 ;READ PORT STATIS WORD 
000401 MICPC=MICPC+i 

01732M 060601 (MOVE! WRTEBR! BR! <SELA!SP1>> 

17326 BRO S$ :IF INIT MODE---ONLY BOOT OK 

oo0402 MICPC=MICPC+1 

017326 106012 <JUMP! BROCON! (S$-INIT&3OOO+4> ! <S$—INIT8777/2)> 

017230 BR? S$ ; IF BOOT MOUE---ONLY BOOT OK 
000403 MICPC=MICPC+1 

017330 107412 < JUMP! BR7CON! <S$-INIT&3000#4> ! <S$-INIT877772>> 

017332 BRWRTE IMM, 201 ;SOH TO BR 
000404 MICPC=MICPC41 

617332 000601 (MOVE! WRTEBR! IMM! <201>> 

017334 CMP BR, SPO :COMPARE BR TO SPO 
000405 MICPCaMICPC?1 

017334 06036u <SUBTC! BR! SPO> 

017336 Z RA ;IF EQUAL-IS NUMBERED MESSAGE 
o0u406 MICPC=MICPC+1 

017336 101741 . <JUMP! ZCOND! <RAL-INIT&3000#4> ! <RAL- SINIT8277/2>> 

017340 BRWRTE IMM.S ;ENQ TO BR 
ULO407 MICPC=MICPC41 

017340 900405 CMOVE!WRTEBR! IMM! <S> > 

017342 CMP SPO ;COMPARE ENG TO SPO 

o17342 Se09e0 nicecanTcresh, 

017344 2 RA2 ;IF EQUAL-IS UNNUMBERED MESSAGE 
Ovo411 MICPC=MICPC+1 

017344 105424 < JUMP! ZCOND! <RA2-INIT&3000#4> ! <RA2-INIT877772> > 

017346 S$: BRWRTE IMM. 220 ;DLE TO BR 
co0041e2 MICPC=MICPC41 

017346 900620 <MOVE! WRTEBR! IMM! <220> > 

017350 CMP BR, SPO ;COMPARE DLE TO SPO 
000413 MICPC=MICPC+1 

0173512 060360 <SUBTC! BR! SPO> 

017352 2 BOOT ;IF EQUAL IS 300T 
000414 MICPC=MICPC+ . 

017352 105771 <J Ue? ZCOND! <BOOT-INTTS300084> # ‘BOOT INIT877772>> 

017354 FLUSH: OUTPUT IMM. <200! ORCVCO> LUSH INPUT SILO 
0004i5 MICPC=MICPC41 

017354 OO221z2 SHOVE THROUT? IMM? <200! ORCVCO> > 

; (LOW ORDER BITS READ ONLY) 

017356 RSTATE RCVA :SET STATE TO RCVA 
000416 MICPC=MICPC+1 

017356 000400 <MOVE ! WRTEBR! IMM! <RCVA-INIT8&777/2> > 
000417 MICPC=M ICPC+1 

017360 063223 <MOVE ! SPX! BR! SELB! SP3> 

017362 BRWRTE IMM, 357 :MASK TO CLEAR--CLEAR ACTIVE 


000420 MICPC=MICPC41 
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ODCGAH. MAC 14-DEC-77 15:07 RCVA--ROUTINE TO HANDLE FIRST DDCMP CHARACTER é£0 Osa 
(1) 017362 000757 <MOVE!WRTEBR® IMM! <357> > 
906 017364 7 S " R,AANDB, SP1C ;IN LINE STATUS WORD 
= 
(1) 17368 Be9354 ies mere BR! AANDB! SP10> 
1 617 FLUSHA: a8 BRNCA SPIO ;CLEAR “C” BIT FOR TIMEO 
 gizaye 800086 pgratien 
3 Bis aL Wey Ss rfneo ;SEE IF WE CAN SEND AN ACK 
(1) 000423 MICPC=MICPC+ 
(1) 017370 110651 < JUMP! ALCOND! < TIMEO-INIT&3000#4> ! < TIMEQ-INIT877772>> 
3903 017372 RA2: STATE RCVI :CHANGE RECEIVE STATE TO I 
(1) ooo424 MICPC=MICPC+1 
1) 17372 000703 <MOVE !WRTEBR! IMM! <RCVI-INIT8&777 72> > 
964 017374 REXIT: SP ‘ 
(1) 000425 MICPC=MICPC+1 
(1) 017374 063223 <MOVE 1SPX? BR! SELB! SP3> 
398 017376 vt 8 IDLE 
(1) 017376 pete ps nyceeen BEE NOE < IDLE- INIT&3000#4> ! <IDLE-INIT&777/72> > 
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1. MAC 14-DEC-77 15:07 RCVB--ROUTINE TO HANDLE FIRST CHARACTER OF COUNT FIELD SEG 0172 
-SBTTL RCVB--ROUTINE TO HANDLE FIRST CHARACTER OF COUNT FIELD 


;ENTERED FROM IDOLE LOOP 
;STORES COUNT FIELD AND SETS UP RCVC AS NEXT STATE 


917400 RCVB: 
017400 SP IBUS, RCVDAT, SPY :READ CHARACTER TO SP4 
17490 Bes254 nicpesnzcpca! tRCVDAT! SP4> 
845489 LDMA BR Bue RY SP tS: ;LOAD MAR WITH ADDRESS OF CURRENT BA 
ae OOHE ering te — 
Bt SBS ROM FE Mx! INC REPT A ;READ THE FLAGS BYTE 
174 peae20 MOVE! WRT BR!MEMX! INCMAR! <SELB> > 
gtd Ske ; RET i ° , ;BUFFER IS ASSIGNED 
74 OOE Dae MT ee spencers CR NIT&3000#4> ! < N 77/2)? 
< = : = 
815498 ’ RARE BR, SELAESPI, RRO ANeFER ASSIGNED - MAINT MODE? 
000433 MICPC=MICPC+1 
017410 060601 (MOVE !WRTEBR! BR! <SELA!SP1>> 
017412 ates BR? meee ; YES 
017412 taht mired FCON! <RB3- INI T&3000#4> ! <RB3-INIT8777/2>> 
017414 a BRURTE IMM » 310 ;SET NAK REASON CODE 
oi74i4 Bort CHOVETHATESR! IMM! <310)> 
017416 LDMA IMM, NTLS ;ADDRESS CUMULATIVE COUNTER 
000436 MICPC=MICPCH1 
017416 O100le SHOVE! OMAR! IMM! <NTLS8377> > 
017420 ALWAYS ;SEND A NAK 
017420 rept MOMS ALCOND? <RHS INIT&3000%4> ! <RHS-INIT&777/2>> 
017422 RBS: BRWRTE IMM.2 *";FLAG FOR NO Sur ASSIGNED IN MAINT MODE 
000440 MICPC=MICPC41 
O174e2 o00402 «MOVE ! WRT BR! IMM: <2>> 
017424 SP AORB, SPI ;SET THE FLAG 
000441 MICPC=MICPC+1 
017424 063301 <MOVE ! SPX! BR! AORB! SP1> 
017426 ad RB1: STATE ¥ RCVC 
017426 88 46 MOO ETUATEGRE IMM! <RCVC-INIT8777/2> > 
017430 weak: RBO: SP ange BR SELB, SP 
017430 peos3 Bee cei gi cpa> 
017432 OUTPUT <MEMX! INCMAR> , <SELB!OBA1> ;OUTPUT LOW ORDER BYTE OF ADDRESS 
17432 Bseeee MOS OE TROUT! HEMX! INCMAR! <SELB! OBAL> > 
Bid 4 Sie sigs MEX" NCMAR, <SELB!OBA2> ;OUTPUT HIGH BYTE OF ADDRESS 
174 peece? MOVE THROUTEHEMX? I MAR! <SELB! OBA2> > 
pt euse ; Agar Se . ? "READ THE BUS REQ REGISTER 
i4ae Tea220 MMOVE SPX? {BUS! UBBR! SPO> 
Bt eua BRWRTE IMM tBi : :MASK OFF ALL BUT NXM AND VEC4 BITS 
000447 MICPC=MICPC41 


017440 O0CSO1 «MOVE! WRTEBR! IMM! < 101>> 
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0004S0 
063260 


0004S1 
003305 


o004Se 
0406658 


0004S3 
061620 


ooo4s4 
001620 


oo04SS 
001620 
0004S6 
001620 


0004S7 
061311 


000460 
100447 


000461 
100453 


000462 
023205 


000463 
010167 


000464 
076604 


000465 
076605 


OOO466 
000470 


000467 
104425 
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RCVB--ROUTINE TO HANDLE FIRST CHARACTER OF COUNT FIELD SEQ 0173 


RBY: 


RBe: 


RCVC: 


SP BR, AANDB , SPO ;AND SAVE IN SPO 
MICPC=MICPC+1 
<MOVE ! SPX! BR! AANDB! SPO> 
SP IMM, 300, SPS ;MASK TO ISOLATE EX. MEM BITS 
MICPC=MICPC4i 
<MOVE ! SPX! IMM! 300! SPS> 
;NOTE THIS REALLY WRITES A 305 BUT THE 
:S GETS SHIFTED OUT 
BRWRTE MX, AANDB! SPS :MASK ALL BUT EX. MEM BITS 
MICPC=MICPC+] 
«MOVE ! WRTEBR! MEMX! <AANDB! SPS> > 


BRSHF T 
MICPC=MICPC+1 
es 


BRS 
MICPC=MICPC+1 

<MOVE t SHF TBR! WRTEBR! SELB? 
BRSHF T 

MICPC=MICPC+1 

<MOVE t SHF TBR! MRTEBR! SELB? 
BRSHF T 

MICPC=MICPC+1 

«MOVE ! SHF TBR! WRTEBR! SELB> 
OU AORB! OBR 
MICPC=MICPC+1 
<MOVE ! WROUTX! BR! <AORB! OBR> > 


ALWAYS 
MICPC=MICPC+1 
< JUMP! ALCOND! < IDLE-INIT&3000#4> ! < IDLE-INIT8&77772>> 


;SHIFT THEM INTO THE CORRECT POSITION 


;WRITE EX MEM BITS OUT 


IT&3000#4> ! <I2-INIT&77772>> 
NE ig HANDLE SECOND CHARACTER OF COUNT FIELD, SELECT AND FINA 


LOO 
AND FINAL 
00 


LARGE 
SP IBUS, RCVDAT, SPS ;GET CHARACTER 
MICPC=MICPC+1 
<MOVE ! SPX! IBUS! RCVDAT! SPS> 
LDMA IMM, BC ;LOAD MAR TO BYTE COUNT 
MICPC=MICPC41 
CMOVE 1LOMAR? IMM! <BC8377>> 
MEMINC BR, SELA!SP4 ;SAVE LOW BYTE 
MICPC=MICPC+1 
«MOVE ! WRMEM! INCMAR! BR! <SELA!SP4Y> > 
MEMINC BR,SELA!SPS ;AND NOW HIGH BYTE 
nIcPCeMrcPc+t 
<MOVE ! WRMEM! INCMAR! BR! <SELA!SPS>> 
STATE RCVD ;SET NEXT STATE TO D 
MICPC=MICPC+1 
<MOVE ! WRTEBR! IMM! <RCVD-INIT8777/2>> 
ALWAYS REXIT 
MICPC=MICPC+ i 
< JUMP! ALCOND! <REXIT-INIT&3000#4> ! <REXIT-INIT8777/2>> 


F14 


PAGE: O1740M 
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359 _SBTTL RCVD--ROUTINE TO HANDLE RESPONSE FIELD FOR NUMBERED MESSAGES 

$61 017502 rcvo:  &tate RCVE | 

(1) 000470 MICPC=MICPC+ 

(1) 017502 O0052e «MO TWRTESR! IMM! <RCVE- INIT877772>> 

962 017504 RD2: SP BP. SELB, SP3 ;SAVE THE STATE 

(1) 000471 MICPC=MICPC+1 

(1) 017504 063223 «MOVE! SPX! BR! SELB! SP3> 

963 017506 SPBR I S. RCVDAT , SPO ; INPUT THE CHARACTER 

(1) 000472 MICPC=MICPC+] 

(1) 017506 023600 <MOVE ! SPBRX! IBUS! RCVDAT! SPO> 

964 017510 BRWRTE BR, SUB!SP17 ; COMPARE NEW R TO LAST R 

(1) 000473 MICPCaMICPC #1 

(1) 017510 060757 <MOVE ! TEBR! BR? < SUB!SP17> > 

95 017512 BRWRTE AORNB! SP1 :IF NEW IS THE SAME OR LESS OR 

(1) 000474 MICPC=MICPC+1 

(1) 017512 060641 <MOVE! WRTEBR? BR! <AORNB! SP1>> 

966 017514 BR? ;MAINT MODE - GET OUT 

(1) 000475 MICPC=MICPC+ 1 

(1) 017514 107514 < JUMP ! BR7CON! <RD7- INI T&3000#4> ! <RD7-INIT877772> > 

967 017516 BRWRTE BR,SELA!SP1O 

(1) 000476 MICPC=MICPC+1 

(1) 017516 060610 MOVE? UR WATEBR! BR! <SELA!SP10>> 

968 017520 BR RSHF T 

(1) 000477 MICPC=MICPC+1 

(1) 017520 001620 (MOVE ! SHF TBR! WRTEBR! SELB> 

969 017522 BRY IDLE 

(1) ooosoo MICPC=MICPC+1 

(1) 017522 103047 OT CMP BRICON! < IDLE- -INIT&3000#4> ! TOES INIT8&77772>> 

970 017524 BRO ROY MESSAGE IN PROGRESS 

(1) oo0s01 MICPC=MICPC+1 

(1) 017524 106110 < JUMP? BROCON! <ROY-INIT&3000%4? ! canis -INIT877772>> 

971 017526 RD3: Lona MM, ISP17 ;ADDRESS LAST ACKED IMAGE 

(1) g00s02 Chevette Pct 

(1) 017526 01015 beak IMM! <ISP178377>> 

972 017530 BR oe SPO :COPY THE CHAR 

(1) 000503 RICPCsn cPté+1 

(1) 017530 062600 VET WRNEM! $<SELA!SPO> > 

973 017:32 RDS: (Bane IMM. REPST ;POINT TO REP THRESHOLD COUNTER 

(1) oo00so4 HICPC=MICPCS1 

(1) 017532 010003 cMOVE !LDMAR! IMM? <REPST8377>> 

974 017534 MEM IMM. 1 ;RESET REP THRESHOLD 

(1) oo00sos mIcpceMIcect | 

(1) 017534 O02401 «MOVE ! WRMEM! IMM! <1>> 

975 017536 RDb: SP IMM. 374, SP14 »RESET THE COUNT 

(1) oo0so6 MICPC=MICPC41 

(1) 017536 003374 <MOVE ! SPX! IMM!374!SP14> 

976 017540 ALWAYS IDLE 

(1) o00s07 MICPC=MICPC+1 

(1) O17540 100447 < JUMP! ALCOND! < IDLE-INIT&3000%4> ! < IDLE-INIT877772> > 

977 017542 RDY: BRWRTE BR, SELA!SPO 

(1) 000510 MICPC=MICPC+1 

(1) o1754e O60600 cMOVE :WRTEBR? BR? <SELA! SPO> > 

$78 017544 BRWRTE ®8R,SUBTC!SPle 

(1) 000511 MICPC=MICPC+1 

(1) 017544 060772 (MOVE ! WRTEBR! BR! <SUBTC!SP12>> 
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_MAC 14-DEC-77 15:07 RCVD--ROUTINE TO HANDLE RESPONSE FIELD FOR NUMBERED MESSAGES SEQ 0175 
017546 BR? meee 
i nice 
017546 og gRas tmp? BASCONt < IDLE- INIT&3000#4> ! < IDLE-INIT8777/2> > 
017550 AL AY S RD3 
000513 MICPC=MICPC+1 
017550 104502 JUMP t ALCON! <RO3- INIT&3000#4> ! <RD3-INIT&777/2>> 
017552 paaoms RD?: BRURTE le A'SPO 
0175S2 060600 <MOV Tint EBRIBR! <SELA!SPO>> 
017554 MP SP12 
000515 GTCPCEMTeP est 
017554 060372 ¢SUBTC!BR!SP12> 
017556 . “ 
017556 opeede JURE: SEGRS! og rnrrsscooe 1 908-1N118777/2> 
017560 sone Rrcpce Ente AA!SP10 ; IF HDX 
017560 060530 <MOVE! BRIBR! <AA!SP1O>> 
017562 iain Ricpc: Res ;QUEUE UP REP 
017562 reer < JUMP! 7A CON! < TIME2-INIT&3000#4> ! < TIME2-INIT8&777/2> > 
017564 ALWAYS IDOLE 
o00S21 MICPC=MICPCS 1 
017564 100447 UMP! ALCOND! < IDLE-INIT&3000#4> ! < IDLE-INIT8777/2>> 
.SBTTL RCVE--ROUTINE TO HANDLE N FIELD OF NUMBERED MESSAGE 
017566 RCVE:  ORWRTE BR,SELA!SPI ;READ THE STATUS BYTE 
o00s22 nICPC= MICPC+1 
017566 O60661 MOV ETWRTEBR! BR! <SELA!SP1>> 
017570 BR? RCV a 
o00s23 MICPC=MICPC+ 
017570 107721 CIUMP? BRECON! <RCVQ-INIT&SOOO*4> # <RCVQ~INIT8777 /2> 
017572 BRURTE BUS, RCV DAT ; INPUT THE CHARACTER 
ooose4 MICPC=MIC 
017572 O20600 (MOVE! WRTEBR! IBUS! <RCVDAT> > 
017574 C j 
000525 MICPC=MICPC+1 
017574 060371 cSuBTC! BR SP11 
_ oo00s26 ; cP =nIeP 
017576 105531 gu 1209 Sti cs-1nrT83000%4>! <S$-INIT8777/2> 
017600 DECA, SP13 ;FORCE MSG TYPE TO -1 
000527 RICPC=M mrepeei 
017600 063173 <MOVE ! SPX! BR! DECA!SP13> 
017602 ALWAYS 
000530 MICPC=MICPC+1 
017602 104532 <JUMP !AL COND? <REB-INIT&3O00#4> ! <REZ-INIT8777 72> 
017604 S$: SP BR. INCA, SP11 ;UPDATE R FIELD 
000531 MICPC=MICPC+1 
017604 063071 <MOVE !SPX!BR! INCA! SP11> 
017606 RE2: STATE RCV a ;NEXT RECEIVE STATE IS F 
000532 MICPC=MICPC+1 
017606 000534 cMOVE LWRTEBR? IMM? <RCVF - -INIT&77772>> 
017610 ALWAYS REX IT 
oc0s33 MICPC=MICPC+ 
017610 104425 < JUMP! ALCOND! <REXIT- INIT&3000%4> § <REXIT-INIT8777 72> > 
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000534 
063164 


000$35 
105137 


000536 
063165 
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ooos40 
020200 


TBha38 


ooos4e 
ooos44 
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RCVF--ROUTINE TO IGNORE ADDRESS SEQ O176 
.SBTTL RCVF--ROUTINE TO IGNORE ADDRESS 
RCVF: SP BR . ;DECREMENTLOW BYTE OF COUNT 
pS Ly +1 
<MOVE! SPX! BR! DECA!SP4> 
c RCV Fo ;NO OVERFLOW 
eT MeTCOOND! t RCVEQ-INITS3000%4> ! ROVE NIT8777/ 
5 BRO BE C8 a ERP OW - DECR MENT HIGH SYTE 
MIcPC=MICPCS | 
iSPX{BR! DECA! SPS» 
RCVFO: sie a RCVG 
TUATE BR! rm <RovG- INIT877772) > 
RCVF 1: NOP IBUS R VDAT, O ; INPUT CHARACTER - AND DISCARD 
MICPC=MI HSRC 
many REXIT 
=M 
Pigepad ee BNE <REXIT- INIT&3000#4> ! <REXIT-INIT&77772>> 
‘SBTTL RCVG--ROUTINE TO IGNORE CRC1 
RCVG: STATE RCVH ;NEXT STATE IS RCVH 


—_— — OE 


MICPC=MICPC+1 
<MOVE !WRTEBR! IMM! <RCVH-INIT877772> > 


YS Xt 
MICPC=MICPC+1 
YUP? ALCOND! <RCVF 1- -INITS3000#4> !<RCVF1-INIT&777/2> > 
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ooos44 
023200 
ooos4s 
020640 


o00S46 
116142 


000S47 
060601 
OooSsO 
107753 
oooss1 
0606 10 
o00sS2 
001620 
oo0SS3 
117263 


oooss4 
010153 


ooosss 
062617 


oo0SS6 
000701 
000S57 
010013 
o00S60 
O43ee0 
o00S61 
062460 
000562 
010151 
000563 
01640e 
O00S64 
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RCVH--ROUTINE TO HANDLE CRC2 AND TO DISPATCH NUMBERED AND UNNUMBERED TYPES SEQ 0177 

.SBTTL RCVH--ROUTINE TO HANDLE CRC2 AND TO DISPATCH NUMBERED AND UNNUMBERED TYP 
RCVH: ° 

SP IBUS, RCVL.iT, SPO ;GET CHAR IN SPO 

Ar tt 

BRWRTE IBUS, RCVCON ;READ RECVR CONTROL REGISTER 

PReCETTArga rus ncvcow, 

s ; repo ;IF BCC MATCH SET CRC IS GOOD 

MICPC= + 

< : * < TDONI-INIT&3000#4> ! <TDON1-INIT8777/2>> 

SO ORR SELAL 'SP1 ;READ STATUS BYTE 

PHGCETUAeSt ton seuasse 

BR? F arenes ss ;MAINT MODE 

MICPC=M 

FCON! <RHX-INIT&3000#4> ! <RHX-INIT&777/2> > 

SRURTES OP SECA 'SP10> ;READ PORT STATUS WORD TO BR 

mICPC=MICP Cs 

<MOVE ! WRTEBR! DP! <SELA!SP10>> 

BRSHFT 

MOS OE SHE TBR? WRTEBR! SELB> 

BRY —sSNAKI ;IF START MODE--PROCEED TO RESEND START 

MICPC=MICPC+1 

UMP ! BR4Y * <SNAK NIT 0#4> ! <SNAKI1-INIT&77772>> 

(Ona Ten TSP I? —— ;ELSE BCC ERROR--POINT TO IMAGE OF SP17 IN RAM 

ey sg <15P178377>> 

MEM BR, SELA!SP17 ;RESTORE LAST ACKED IMAGE 

nicpcemicec +l '<SELA!SP17>> 

BRWRTE IMM eBi ;WRITE HEADER BCC ERROR SUBTYPE 

Bee CSE ett <301>> 

DMA «IMM, NHDS- ;ADDRESS CUM ERROR COUNTER 

ey os ! <NHDS8&377> > 
RHS: SP. _—SMEMX SP ;WRITE IT TO SPO 

HICPCs cPc+] 

<MO 


X! MEMX! SELB! SPO> 
BR IN CA! SPO ; INCREMENT IT 


Pt+1 
<MOVE !WRMEN! BR! < INCA! SPO> > 


DMA I 
NICPC=MICPCt1 
HOVETL OMAR! IMM! <T8377>> 

MEN INC IMM. 2 
MICPC=MICPC41 ( 
<MOV OE TWAMEM! INCMAR! IMM! <2>> ; 
MEM R, SELB 

ROVE TLANEN? RY <SELB>> 
LOMA IMM, NAKST :ADDRESS NAKS TMTED DYNAMIC 
HICPC=MICPCS1 


;LOAD ADDRESS OF TYPE FIELD 
;WRITE NAK TYPE 


;WRITE NAK SUBYTPE FIELD SUBTYPE 
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14-DEC-77 15:07 RCVH--ROUTINE TO HANDLE CRC2 AND TO DISPATCH NUMBERED AND UNNUMBERED TYPES SEQ 0178 

010001 <MOVE! LDMAR' IMM! <NAKST8&377> > 

BRWRTE MEMX, SELB ;WRITE IT TO BR 
OOUSbE MICPC=MTCPC+ 
040620 (MOVE ! WRTEBR! MEMX! <SELB> > 

BSHF TB ;SHIFT IT RIGHT 
000567 MICPC=MICPC+1 
061620 <MOVE ! SHF TBR! SELB! BR> 

MEM BR, SELB ;UPDATE IT 
000570 MICPC=MICPC+1 
062620 «MOVE! WRMEM! BR! <SELB> > 

BRO NTHRES ;BRANCH IF THRESHOLD EXCEEDED 
000571 MICPC=MICPC+1 
116232 < JUMP * BROCON! <NTHRES-INIT&3000#4> ! <NTHRES-INIT&77772> > 

ALWAYS SNAK 
000S72 MICPC=MICPC+1 
114660 < JUMP ! ALCOND! <SNAK-INIT&3000%4> ! <SNAK-INIT&77772>> 

RH3: BRWRTE <DECA! SP13> ;LOAD TYPE RECEIVED--DECREMENTING 

000573 MICPC=MICPC+1 
060573 <MOVE ! WRTEBR! DP! <DECA!SP13>> 

2 RH1 ;IF ALUOUT IS ALL ONES IS NUMBERED MSG 
000574 MICPC=MICPC+1 
115441 < JUMP! ZCOND ! <RH1-INIT&3000#4> ! <RH1-INIT&77772>> 

RSTATE RCVA 
000575 MICPC=MICPC+1 
000400 <MOVE ! WRTEBR! IMM! <RCVA-INIT8777/2> > 
000576 MICPC=MICPC+i 
063223 <MOVE ! SPX! BR! SELB! SP3> 

DP, <SELA!SP10> ;LOAD LINE STATUS WORD IN BR 
000577 MICPC=MICPC+1 
060610 <MOVE ! WRTEBR! DP! <SELA!SP10>> 
TPUT IMM. <200!ORCVCO> 

000600 MICPC=MICPC41 
O022 12 <MOVE ! WROUT !# IMM! <200! ORCVCO> > 

BRSHFT ;SHIFT RIGHT 
000601 MICPC=MICPC+1 
001620 CMOVE ! SHF TBR! WRTEBR! SELB? 

BRY 1 
o00802 MICPC=M creel 
107219 < JUMP! BRYC t < 10$- INIT&SO00#4> ! < 10$-INIT8777 422.2 

LDMA IMM, TYPTAB ;ADDRESS TYPE TABLE 
000603 MICPC=MICPC41 
010162 <MOVE ! LOMAR! IMM! < TYPTAB&377>> 

CMP CMEMX! INCHAR? , SP13 
000604 MICPC=MIC # 
054373 ¢SUBTC! MEMX! NCMAR! SP13> ‘ 
oco60s MICPC=MICPC+1 
111770 < JUMP! ZCOND ! <REP-INIT&3000#4> ! <REP-INIT&77772>> 

CMP <MEMX! INCMAR> , SP 13 
000606 MICPC=MICPC+1 
054373 ¢SUBTC*HEMX? INCMAR! SP13> 
000607 AIcpcemIcee+1 
115416 < JUMP! ZCOND ! <NAK-INIT&3000#4> ! <NAK-INIT&77772> > 

10$: LOMA IMM. 1 YPSTT :SET POINTER TO START TYPE 

000610 MICPC=MICPC41 : 


Sr 


8 
= 


o- 
-~O 
a 
~N 


~ 
~ 
~ 


— 
ne 
— 


- 
HoROCRA 
~~ 


~ 
or 
— pe 


— 
Ore 


— 
“er 


- MAC 


17742 
17744 


17744 
17746 


14-DEC-77 15:07 


010164 
000611 
054373 
000612 
11SS01 
000613 
054373 


000614 
111777 


K14 


RCVH--ROUTINE TO HANDLE CRC2 AND TO DISPATCH NUMBERED AND UNNUMBERED TYPES 


<MOVE!LDMAR! IMM! < TYPSTT8377> > 
CMP <MEMX! INCMAR> , SP13 
pf aay aed 
<SUBTC! ~ 
TAR 


2 
MICPC=MICPC+ 
COMET SCOND! ¢START-INIT&3000%4> ! <START- INIT777/2» 


TYPE 
MP = SP13 
MICPC+1 
eee oe 


bl whaamepeteath SP 1 
metigen > Agreed eg 


MICPC=MICPC+1 
§ ZCOND! <ACK-INIT&3000#4> ! <ACK-INIT&77772>> 


ST 
MICPC+1 
COND! <STACK- aan apg ‘Bo ty beet ii 
=MI 


PAGE: 01790 
SEQ 0179 


always ee ; OTHERWISE IGNORE--MUST BE OBS MSG 


MICPC=MICPC 
CSUMB? TALCOND! < IDLE- -INIT&3000#4> ! < IDLE-INIT&77772>> 


L14 
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DOCGAH. MAC 14-DEC-77 15:07 RCVH--ROUTINE TO HANDLE CRC2 AND TO DISPATCH NUMBERED AND UNNUMBERED TYPES SEQ 0180 
? ; ERERRRRSERRRRLEETT A DE-- CHAN I R ARE RHRRERRERAEERRLRLE ES 
i ? .SBTTL RCVROL—-ROUT INE $8 HANDLE NE 4 are BRD ze eerie 
1074 017762 RCVKOL: SPBR igus 0 NPR REGISTER 
(1) 000620 PC=MI 
(1) 017762 123600 (ep a rr 
103 ree 2 | MICP =M 
4 
(1) 017764 tersilts rea BROCON! < IDLE- INIT&3000%4> ! < IDLE-INIT&77772> > 
1076 017766 out PUT 1BuS RCVDAT! OUTDA2 ;OUTPUT A CHAR 
(1) o00622 MICPC=MI crc +} 
( 1) 017766 O22203 <MOV! tWROU ' IBUS! <RCVDAT! OUTDA2> > 
1077 01777 STAT i 
(1) 000623 MICPC=MICPC+1 
(1) 017770 000671 (MOVE ! WRTEBR! IMM! <RKE1-INIT&77772>> 
1078 017772 RCVKO2: SP BR SELB, SP3 ;SET STATE 
(1) o0c624 nIcPC=Hy pt+i 
(1) 017772 063223 <MOVE ! SPX! BR! SELB! SP3> 
1079 017774 valk BRURTE apesTo 
000 = 
(1) 017774 O006e1 CHOVE! We EBR! IMM! <221>> 
ae) seth 000626 MAYS. KZ 
= 
(1) 017776 104635 COME? AL * <RK7-INIT&3000#4> ! <RK7-INIT&77772>> 
1081 . SBTTL VKO--PROCESS ODD CHARACTER 
1082 oe20000 RCVKO: SPBR I NPR, SPO ;IS AN NPR GOING 
1) 2009 28865 ChovETSPgrst fous ner: seo 
l pS Bobe Ske CVK ;IF SO, REITERATE ODD AND EXIT 
Ch) 00 itty MS DADCONE <RCVKO INIT&3000#4> ! <RCVKO-INIT8777/2> > 
1089 880008 CTBT  RCVKE 
(1) 000631 MICPC=MICPC+ 1 
(1) Oe0004 900645 (MOVE! WRTEBR! IMM! <RCVKE-INIT8&77772> > 
1090 Oe0006 SP SELB, SP3 ;SET STATE 
(1) Oz0008 besees Ae 7 a 
1031 O20010 OUTPUT I Satitities ;QUTPUT A CHAR 
(i) 000633 MICPC=mMICPC+1 
(1) 020010 O22203 <MOVE ! WROUT ! IBUS! <RCVDAT! OUTDA2> > 
1032 O20012 RKB: BRWRTE IMM. 21 ;SET OUT NPR (C1) AND NPR REQ 
(1) 900634 miceceny PCs 
(1) Oe0012 Oo004e1 cM ! TE tIMM!<21>> 
1093 020014 RK?: OUT "i <RORB! ONPR? ;WRITE NPR REGISTER 
(1) oz0014 nse te MVE WR el eticsanee !ONPR> > 
On mantnd 0006 ALOR COMTOP ES. 
(1) 920016 Tosa? < JUMP! ALCOND! < IDLE-INIT&3000#4> ! < IDLE-INIT&77772> > 
1039S Qe RLY: 
1097 O20020 RSTATE RLY 
(1) 006637 MICPC=MICPC+1 
(1) o20020 90 37 CMOVE! WRTEBR# IMM! <RLY-INIT&777/2>> 
(1) 40 MICPC=MICPC+1 
(1) Oe0022 063223 <MOVE! SPX! BR! SELB! SP3> 
i08S O20024 SPBR IBUS, NPR, SPO 
(1) 000641 MICPC=MICPC+1 


PAGE: 
DOCGAH. MAC 14-DEC-77 15:07 RCVKO--PROCESS ODD CHARACTER SE 
(1) 4 123600 <MOVE ! SPBRX! IBUS! NPR! SPO> 
{di BSBB82 BHO Pace 
(1) 000642 MICPC=MIC 5, 
(1) 020026 102047 < JUMP! BROCON! < IDLE- -INIT&3000#4> ! <IDLE-INIT&777/2>> 
1103 020030 STATE RCVL 
(1) 000643 MICPC= cPc+ 1 
(1) 020030 000723 «MOVE !WRTEBR! IMM! <RCVL-INIT&777/2>> 
1104 020032 ALWAYS VKO2 
(1) 000644 MECPCeMTeP Ce 1 
(1) oO20032 104624 «JUMP! AL * <RCVK =INIT83000%4> ! <RCVKO2-INIT&77772>> 
1105 rita VKE-- — EVEN BYTES 
1106 020034 RCVKE: BRWRTE NPR ;READ NPR CONTROL REGISTER 
(1) 000645 nICPCeHI 
(1) 020034 120600 ER! TBUS! <NPRD> 
1198 020036 BRY ;IF RECV NPR--BRANCH 
(1) 000646 nICPC=MICPC +1 
(1) 020036 103376 CON! <RK4-INIT&3000*4> ! <RK4-INIT&77772> > 
1113 Od20040 RKS: SP IBUS, IOBA1 , SPO ;READ LOW BYTE OF BA TO SP 
(2) gengug S298 ChOve Ter Yat: roma seo 
1114 BS hous SUS PUT DP. < ROA’ BBAL> ;WRITE INCREMENTED BA 
(1) 000650 MICPC=MICPC+1 
(1) oO70042 O62066 <MOVE! WROUT DP! < INCA! OBA1> > 
1115 O20044 RKSO: SP BR DE A, SP4 ;DECREMENT CHARACTER COUNT 
(1) 000651 MICPC=MI pao’ 
(1) oO20044 063164 <MOVE! SPX! 'DECA!SPY> 
1116 O2004%6 Cc ;NO OVERFLOW 
(1) ooo0ese2 GIcpcemre +1 
(1) oO2004%—% 105255 < JUMP! CCOND! < 1OS-INIT&3000#4> ! < 10$-INIT&77772>> 
1117 O200s0 SP BR DECA, SPS ; OVERFLOW - DECREMENT HIGH BYTE 
(1) 000653 MICPC=MI pt+i 
(1) oO200S0 063165 «MOVE ! SPX! BR! DECA! SPS> 
1118 O20052 2 ;BYTE COUNT ZERO 
(1) oo06S4 MICPC=MICPC+1 
(1) Oe200Se 105727 < JUMP? ZCOND! <RL3- INTT83000%4> # <RL3- INIT&77772>> 
1119 020054 10S: OUTPUT I <RCVDAT! OUTDAL> ;READ CHARACTER AND WRITE IT 
(1) 0006S MICPC=MI + 
(1) o00S4 Oe2e2 (MOVE ! WROUT ! IBUS! <RCVDAT! OUTDAIL> > 
1120 oO20056 SP igus 10BA1, SPO ;READ INCREMENTED BA 
(1) 000656 MICPC=MICPC+1 
(1) oe200S6 623140 <MOVE ! SPX! IBUS! IOBA1! SPO> 
1121 020060 OUTPUT DP,<INCA!OBA1> ;WRITE INCREMENTED BA 
(1) 000657 NICPC=MIC + 
(1) O20 062066 <MOVE ! 'DP!<INCA!OBA1>> 
1126 020 Cc 3 ;OVER FLOW 
(1) 000660 MICPC=MICPC+1 
(1) O20062 115004 < JUMP! CC NO < 1¢BRBS- INIT&3000#4> ! << ICBA23-INIT877772>> 
1127 020064 RK3: SP DECA ;DECREMENT THE COUNT OF BYTES 
(1) 000661 MICPC=MICPC+I 
(1) 020064 063164 <MOVE ! SPX! BR! DECA! SP4> 
1128 O20066 Cc RK& ;NO OVERFLOW 
(1) o00662 MICPC=MICPC+1 
(1) 0 105265 {JUMP 1 CCOND# < RK&_ INIT&3O00#4> ! <RKE- INIT8777/2>> 
1129 eed SP BR, DECA :DECREMENT HIGH BYTE OF COUNT 
(1) 000663 MICPC=MICPC+1 
(1) 020070 063165 «MOVE! SPX! BR! DECA! SPS> 
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OO0664 
105637 


OOO06ES 
O0e064C 
On0S68 
10722 

000667 
000627 


TOWN 


000671 
123200 


00067 
10204 


000673 
000S77 


000674 
061270 


000675 
104651 


000676 
023200 


000677 
Obee0e 


000700 
060601 


000701 
117554 


000702 
104661 


PAGE: 
RCVKE--HANDLE EVEN BYTES 
2 RLY ;BYTE COUNT ZERO 
MICPC=MICPC+1 
<JUM 2 ZCOND g Revcon, ssomoN RL INIT8777°2>? 
RKb: BRWRTE I READ RECEIVER CONTROL REGISTER 
HOVE WRTESR + nese’ 
BRY VKO ;IF ANOTHER CHARACTER--PROCESS 
MICPC=MICPC+1 
< JUMP! BRYCON! <RCVKO-INIT&3000#4> ! <RCVKO-INIT877772>> 
RK66: STATE RCVKO 
MICPC=MICPC#1 
<MOVE ! TEBR! IMM! <RCVKO- INIT8&77772>> 
ALWAYS XIT 
MICPC=MICPC+1 
< JUMP! ALCONOD! <REXIT-INIT&3000#4> ! <REXIT-INIT&77772>> 
RKE1:  §P I NPR, SPO ;READ NPR REGISTER 
CAOUETSPX! Feb wen: so» 
; — ;NPR STILL IN PROGRESS 
mere gy ON? <IOLE- -~INIT&3000#4> !< IDLE-INIT&7777e2>> 
BRWRTE IMM, 177 ;MASK FOR ALL BUT CO 
SHOVE TOA FEBR!r c177> 
OUT Br <AANDB ! ONPR> : TURN OFF ALL BUT CO 
MICPC=M perl 
<MOVE ! X? BR! <AARNDB! ONPR> > 
RICECSNTCeCe 
< JUMP! ALCOND! <RKSO-INIT&3000#4> ! <RKSO-INIT&77772>> 
Perttitritiititt + 14.) OF TIME C CRITICAL PATHHHERHHRKERARHARER EKER ERRRRAERERRESRERE 
RCVKEO: SP I s) RCVDAT, SPO ;READ CHARACTER AND SAVE IN SPO 
Chove iSPxr You *RCVDAT ! SPO> 
LA! OUTDAI> ;SEND NONSENSE CHARACTER 
a eeee T!BR!<SELA!OUTDAL>> 
SRURTE tbe ‘SB ;READ STATUS BYTE 
MICPC=MICPCs I 


< TEBR! BR! <SELA!SP1>> 
Re P 5° ;MAINT MODE - SEE IF RLD MESSAGE 


=M 
CTUMPs BASCON! <PASWRO- INT T8SOOO#Y) 6 SHERUISE INIT&77772>> 
ALWAYS RK3 OTHERWISE PROCESS NORMALLY 


MICPC+1 
«JUMP! ALCOND! <RK3- -INIT&3000%4>! ma-paTarite 


B1S 
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DOCGAH. MAC 14-DEC-77 15:07 RCVI--STORE UNNUMBERED MESSAGE TYPE SEQ 
1157 .SBTTL RCVI--STORE UNNUMBERED MESSAGE TYPE 
1158 020130 RCVI: S&P 1BUS ,RCVDAT, SP13 ;STORE UNNUMBERED TYPE 
(1) 000703 MICPC=MICPC+1 
(1) 0201 023213 «MO SPX? IBUS!RCVDAT! SP13> 
1159 0201 STAT RCV ;NEXT STATE IS J 
(1) 000704 MICPC=MICPC+1 
(1) 020132 000706 <MOVE !WRTEBR! IMM! <RCVJ-INIT&77772>> 
1160 020134 ALWAYS REXIT 
(1) 000705 MICPC=MICPC4+1 
Ate 020134 104425 < JUMP! ALCOND! <REXIT-INIT&3000%4> ! <REXIT-INIT877772> > 
1ibe "SBTTL RCVJ--ROUTINE TO HANDLE SUBTYPE FIELD,SELECT AND FINAL 
1163 020136 RCVI: 
1168 020136 SP IBUS, RCVDAT, SPS :GET CHARACTER 
(1) 000706 MICPC=mMICPC+! 
(1) 020136 3623205 (MOVE ! SPX! TBUS! RCVDAT! SPS> 
1169 029140 BRWRTE IMM, 200 : CONDITIONALLY SET BIT 
(1) 000707 MICPC=MICPC41 
(1) 620140 O00600 <MOVE !WRTEBR! IMM! <200> > 
1170 d20142 BRWRTE AANDB! SPS 
(1) 000710 MICPC=MICPC+1 
(1) O20142 O60665 (MOVE! WRTEBR! BR! <AANDB! SPS> > 
1171 O20144 SP BR, AORB, SP10 
(1) 000711 MICPC=MICPC+1 
(1) 020144 062310 <mOve! X!BR! AORB! SP10> 
1173 020146 STAT RCVR ;NEXT STATE IS N 
(1) 000712 MICPC=MICPC+1 
(1) 020146 900714 (MOVE !WRTEBR! IMM! <RCVR-INIT&77772> > 
1174 O20150 ALWAYS XIT 
(1) 000713 MICPC=MICPC+1 
(1) oO201S0 164425 < JUMP! ALCOND! <REXIT-INIT&3000%#4> ! <REXIT-INIT8777/2> > 
1175 -SBTTL RCVR--UNNUMBERED MESSAGE RESPONSE FIELD 
1176 ;ENTERED FROM IDLE LOOP 
1178 o201S52 RCVR: BRWRTE IMM,3 ;REP MESSAGE TYPE TO BR 
(1) 000714 MICPC=MICPC41 
1) O201S2 000403 <MOVE !WRTEBR! IMM! <3>> 
1179 020154 NOP BR, SUB, SP13 ;IS TYPE ACK OR NAK 
(1) 000715 . MICPC=MICPC+1 
(1) 020154 060353 <BR! SUB!SP13> 
1180 9020156 STATE RCVO ;NEXT STATE IS RCVQ 
(1) 000716 MICPC=MICPC+1 
(1) O201S6 900721 (MOVE ! WRTEBR! IMM! <RCVQ-INIT&77772> > 
1161 ;*#**NOTE THIS INSTR DOES NOT CLOCk “Cc” 
1182 020160 c RCVF 1 !IF NOT IGNORE 
(1) 000717 MICPC=MICPC+1 
(1) 020160 105140 < JUMP! CCOND! <RCVF 1-INIT&3000#4> ! <RCVF 1-INIT&777/2> > 
1183 O20162 ALWAYS RD2 ;00 RANGE CHECKS 
(1) 000720 MICPC=MICPC+1 
(1) O20162 104471 < JUMP! ALCOND! <RD2-INIT&3000#4> ! <RD2-INIT8777/2>> 
1184 .SBTTL RCVQ--UNNUMBERED MESSAGE--NUMBER FIELD 
1185 ;ENTER FROM IDLE 
1187 020164 Rcv@: STATE RCVF ;NEXT STATE IS ADDRESS 
(1) 000721 MICPC=MICPC+1 
(1) O20164 900534 (MOVE! WRTEBR! IMM! <RCVF-INIT&77772> > 


DDCGAH.MAC  —-:14-DEC-77 15:07 
1188 020166 


‘t) opores 989856 


RCVQ--UNNUMBERED MESSAGE--NUMBER FIELD 
ALWAYS RCVFi 


MICPC=MICPC+ 
minestie ONO! «CVF 1-INIT83000#4> !<RCVF1-INIT8777 72>) 
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.MAC 14-DEC-77 15:07 RCVL--PROCESS CRC3 
.SBTTL RCVL--PROCESS CRC3 
jENTERED FROM IDLE LOOP 
020170 > RCVL: Rie econ NPP, SPO ;READ NPR CONTROL 
020170 009783 ROVE! rte Lustenare: 
020172 " 8 RL ;RCV NPR BRANCH 
020172 099287 nycPes HASPSS ca INIT&3000#4> !<RLI- INI T7772)? 
020174 . RL2: Barre It IMM 1 i76 MASK TO TURN OFF CO 
gegiry BSRLFE CASVETIAGESR! re ci7e>» 
176 

000726 UCPCeMIEPES] 
020176 061270 COVE! wROUTX! BR! <AANDB! ONPR> > 
020200 RL3: STATE RCVM 

000727 MICPC=MICPC+1 
O20200 000733 <MOVE ! WRT BRE IMM! <RCVM- -INIT877772>> 
de0e02 WAYS RCVFi 

090730 m CPC=MICPC+1 
O20202 10454 UMP! ALCOND! <RCVF 1-INIT&3000#4> ! <RCVF 1-INIT8777/2>> 
020204 ss RLI: BRO, - IDLE 

= 

020204 Og gha4 SEB OAS CONE < IDLE-INIT&3000#4> ! <IDLE-INIT&777/2>> 
020206 os ALWAYS ALE 
O2zo206 i O53 <SURBAL REND? <RL2-INITS3000%4> ! !<RL2-INIT&777/2>> 


ae Re IE ER CRC4--END OF DATA MESSAGE 
Ep ERE CORREC < SUELE INTERUPT AND UPDATE RESPONSE 


oS oe a 


020210 RCVM: itt ace ;READ UNIBUS BR REGISTER 
000733 Ricecsn Ebel us 

020210 120620 }IBUS! <UBER? > 

020212 longed B wane ;NON-EXISTANT MEMORY 

= 

020212 106364 mired ie I ropean<guarasoo0% ! <NXMERR-INIT877772> > 

020214 sé IBUS. RCVDAT, SPO ;READ CRC CHARACTER 
000735 MICPC=MICPC+ 

020214 O23200 <MOVE ! %! TRUS! RCVDAT! SPO> 

020216 BRWRTE Tpus_R CVCON ;READ RECEIVER CONTROL REGISTER 
000736 MICPC= CPCs 

020216 d20640 <M TEBR! IBUS! <RCVCON> > 

020220 BRO RCVMI ;IF CRC GOOD -- PROCESS 

re) rests ricecaurcec On! Revi -INIT&3000#4> ! <RCVM1- ~INIT872772) 

passe BRWRTE SELA FSP READ STATUS BYTE 
000740 MICPC=MICPC+1 

O20222 060601 CMOVE ! WRTEBR! BR! <SELA! SP1>> 

020224 BR? ;CRC ERROR IN BOOT MODE - FLUSH 
000741 RICPC=MICPCe 1 

O20224 107753 < JUMP! BR7CON! <RHX-INITS3000#4> ! <RHX-INIT&77772> > 

Oe02c6 BRWRTE IMM, 302 ;DATA ERROR SUBTYPE 


000742 MICPC=MICPC41 


E1S 


nN PAGE: 01860 
DOCGAH. MAC 14-DEC-77 15:07 RCVM--PROCESS CRC4Y--END OF DATA MESSAGE Sea 0186 
(1) 020226 000702 “MOVE SWRTEBR! INH <302> > 
1222 020230 LOMA IMM, NDATS ;ADDRESS CUM ERROR COUNTER 
(1) 000743 MICPCaMICE CT 
(1) O20e 010014 ! IMM! <NDATS8&377> > 
1223 Oe0e ALWAYS RHS ;SEND NAK 
(1) 000744 MICPC=MICPC #1 
$b O20232 104560 MPT ALCONG! <RHS-INIT83000«4> ! <RHS-INIT8&77772> > 
1225 020234 RCVMO: BRWRTE IMM,10 ;MAINT MESS ERROR 
(1) 000745 MICPC=MICPC41 
(1) O20234 000410 (MOVE! WRTEBR! IMM! < 10> 
1226 020236 RCVM2: LDMA IMM, <<RTHRS+3> > ;POINT TO ERROR WORD 
(1) 000746 MICPC=MICPC41 
(1) 020236 010177 <MOVE ! LOMAR! IMM! < <RTHRS+3>8377>> 
1227 d202e40 ALWAYS RCEXY ;GIVE FATAL ERROR 
(1) 000747 MICPC=MICPC+1 
(1) Oe0240 114472 «JUMP? ALCOND! <RCEXY-INIT&3000%4> ! <RCEXY-INIT8&77772> > 
1228 .SBTTL EM2--PROCESS RLD MESSAGE 
1229 : ENTERED FROM IDLE Coop 
1230 :IF RLD PASSWORD CHECKS TRIGGER THE BOOT ROM 
1232 o20242 EM2: BRURTE IBUS, RCVDAT ;READ THE CHAR 
(1) 000750 MICPC=MICPC+1 
(1) Ov02e42 O20600 «MOVE! WRTEBR! IBUS! <RCVDAT> > 
1233 Oe0244 CMP BR, SP13 :IS IT A MATCH 
(1) 000751 MICPC=MICPC+1 
(1) oO20244 060373 <SUBTC!BR!SP13> 
1234 O202e46 2 EM3 
(1) 000752 MICPC=MICPC+1 
She 020246 105761 < JUMP! ZCOND ! <EM3-INIT&3000%4> ! <EM3 INIT8777/2>) 
1236 O20250 RHX: BRWRTE BR, AA!SP1 !READ STATUS BYTE SHIFTED LEFT 
(1) 000753 MICPC=MICPC+1 
(1) O20250 060521 <MOVE !WRTEBR! BR! <AA!SP1>> 
1237 O202e52 BRY 105 ;DLE RECEIVED IN NORMAL MODE 
(1) 000754 MICPC=MICPC+ 
(1) O202Se 107356 CTUMP 1 BRICON! < L0S-INIT&3000%4> ! <10S- INTT8777/2>> 
1238 O20254 always FLUSH READY IN MAINT MODE 
(1) 000755 RICPCAMICECe | 
(1) o20254 104415 < JUMP GiB? AL EON! <FLUSH-INITB3OODH4># <FLUSH-INITS777/2> 
1239 020256 . 10S: BRWRTE IMM. 16S :MASK TO CLEAR ALL MAINT RELATED BITS 
(1) 000756 MICPC=MICPC41 
(1) O20256 OOOSES <MOVE! WRTEBR! IMM! <165>> 
1240 O20260 SP BR, AANDB, SPi ;CLEAR THEM 
(1) 000757 MICPC=MICPE+1 
(1) O20260 063261 HOVE! SPX? BR! AANDB! SP1> 
1241 O20e62 ALWAYS FLU USH 
(1) 000760 MICPC=MICPC 
(1) Oe0262 104415 <JUMP AL COND! cFLUSH-INITS3000%4> <FLUSH-INIT&777/2> > 
1e42 O2e0e64 EM3: SP Py 
(1) 000761 MICPC=M mIepes i 
(1) O20264 063164 <MOVE ! SPX! BR! DECA! SP4> 
1243 Oe0e66 2 ENTRIG 
C1) 000762 MICPC=MICPC+ om 
(1) O20266 115666 TOMB TSCOND! -EMTRIG-INIT&3000#4> ! <EMTRIG- INIT87772>> 
1244 020270 ALWAYS IDLE 


DOCGAR. MAC 14-DEC-77 15:07 
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1) 
1 


5 


; 


000763 
Cece70 100447 


FIs 


EM2--PROCESS RLD MESSAGE 


MICPC=MICPC+1 
< JUMP! ALCOND! < IDLE-INIT&3000#4> !< IDLE-INIT&777/2> > 
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000764 
010177 


00076S 
016401 


000766 
002400 


000767 
043230 


000770 
114474 
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NXMERR ---NON EXISTANT MEMORY HANDLER SEQ Ol 


-SBTTL NXMERR ---NON toil MEMORY HANDLER 


NXMERR: LOMA ntepe « <RTHRS+3> > ;AODRESS ERROR LINK 
= 


cpch1 
«MOVE !LOMAR! IMM! < <RTHRS+3>8377> > 
MEMINC IMM 
MICPC=MICPC41 
(MOVE !WRMEM! INCMAR! IMM! <1>> 
MEM I 
MICPC=MICPC41 
CMOVE !WRMEM! TMM! <0> 
SP K, SELB, SP10 ;CLEAR STATUS 
AICPC=MICPCe +1 


sere, © i Ceres SEL ae 
ALWAYS RCEXX 
MICPC=MICPC+1 
< JUMP! ALCOND! <«RCEXX-INIT&3000#4> ! <RCEXX-INIT&777 72> > 


;NXM ERROR BIT 


~ ~ ~ ~ ~ ~ 
COM Mr — se Ne ice naniliens dierent 


—e 


020304 
020304 
020306 


020316 


020310 
020312 


020312 
020314 
020314 
020316 
020316 
020320 
020320 


14-DEC-77 15:07 


000771 
060601 


000772 
10374S 


000773 
000610 
000774 
063301 


000775 
10074S 


000776 
000402 


000777 
114637 
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NXMERR ---NON EXISTANT MEMORY HANOLER SES 0189 


BRWRTE BR.SELA!SP1 :SEE IF IN MAINT. MODE 
MICPC=MICPC+ 

CMOVE!WRTEBR! SR! <SELA! SP1>> 
BR? Re ;BRANCH IF SO AND TREAT DLE LIKE NUM. MSG. 
MICPC=MICPC+1 


< JUMP ! BR7CON! <RAZ-INIT&3000#4> ! <RAZ-INIT&77772>> 
RURTES THM 210 ;MASK TO SET MAINT MODE AND DLE RECYV'D 


B 
MICPC=MICPC41 
«MOVE !WRTEBR! IMM! <210>> 


SP BR , SPI ;SET THE BITS 
nIcpcsM pPC+1 


ALWAYS RAZ ; TREAT LIKE NUMBERED MESSAGE 
MICPC=MICPC+1 


< JUMP! ALCOND! « RA3- INI T&3000#4> ! <RA3Z-INIT8&777 72> > 
BRWRTE IMM,2 


CECoMTEPCe 
UMP! ALCOND! <ERRXX-INITS3000#4> ! <ERRXX-INIT&77772>> 
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% PAGE: 01900M 
-MAC 14-DEC-77 15:07 NXMERR ---NON EXISTANT MEMORY HANDLER SEO 6190 
020322 . =INIT+2000 
000777 MICPC=777 
.SBTTL TMTA--FIRST CHARACTER OF HEADER 
020322 TMTA: 
O2e032e BRWRTE BP AA!SP10 :SHIFT LEFT 
001000 MICPC=MICP 
020322 060530 <MOVE ! WR EERIBR! <AA!SP1O>> 
0324 BR? RCV Ck 
001001 MICPC=MICPC 
g20324 117774 me < JUMP! BRICON! <RCVCK- -INIT&3000#4> ! <RCVCK-INIT877772> > 
020326 BRWRTE BR SELA!SP10 :REREAD STATUS 
001002 MICPC=MICPC+ 
020326 060610 <MOVE ETURTEBR! BR! <SELA!SP1O>> 
03 BR? TRe ;O0K TO SEND? 
001003 MICPC=M ICPC+1 
020330 113405 < JUMP! BRSCONt < TAZ- INIT&3000#4> ! < TA2- INIT8777/2) 
020332 TMTAG: ALWAYS NO 
001004 MICPC=MICPC 
020332 100451 < JUMP! ALCOND! <11~ INIT&3000%4> #<I1- 1n118777/2)> 
03 TR2: BRO SYN ; IF UNNUMBPENDING -- SEND IT 
001005 MICPC=MICPC+1 
020334 112012 <u UMP ! ie sacs -INIT&3000%4> ! <NUMSYN-INIT3877742> > 
001006 MICPC=MICPC+1 
020336 112410 < JUMP! BRICON! < 10$-INIT&3000%4> ! < 10$-INIT&777/2>> 
020340 ALWAY 
001007 MICPC=MICPC# 1 
020340 100451 < JUMP! ALEOND! <T1- ~INIT&3000%4> ! <I1-INIT&777/2>> 
020342 10$: 
o20342 BRSHFT 
001010 MICPC=M ICPC+1 
020342 001620 «MOVE ! SHF TBR! WRTEBR! SELB> 
020344 BRY 11 ;IF START MODE EXIT 
001011 MICPC=MICPC+ 1 
020344 103051 < JUMP! BRYCON! <IT1- =INITS3000%4° ! <I1- INIT&777/2>> 
020346 NUMSYN: BRWRTE IBUS. MODEM ;ARE WE STILL SENDING? 
001012 MICPC=MICPC+ 
020346 d20666 (MOVE ! WRTEBR! IBUS! <MODEM> > 
020350 BRSHFT 
001013 MICPC=MICPC+1 
020350 001620 <MOVE ! SHF TBR! WRTEBR! SELB> 
020352 BRY Il ;RTS SET? IF SO WE ARE--STALL 
001014 MICPC=MICPC+1 
020352 103051 < JUMP! BRICON# <I1- INIT&S3000%4> ! <I1-INIT&77772>> 
020354 TSTAT THT al 
001015 MICPC=MIC 
020354 000441 <MOV THRTESR! Inn: cTHTAL- -INIT&777/2>> 
001016 MICPC=MICPC 
020356 063222 cMOVE 1 SPX! BR! SELB! SP2> 
020360 TE IMM, 12 
001017 SRORCEMIGPCS 
020360 o00412 <MOVE !WRTEBR! IMM! <12>> 
020362 SP BR, SELB, SP6 ;STORE IN SP6 


001020 MICPC=MICPC+1 
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PAGE: 019 
MAC 14-DEC-77 15:07 TMTA--FIRST CHARACTER OF HEADER SEQ ar 
020362 063226 <MOVE ! SPX! BR! SELB! SP6> 
020364 ALWAYS Ii ;BACK TO IDLE LOOP 
001021 MICPC=MICPC+1 
920364 100451 < JUMP? ALCOND! < 11-INIT&3000#4> ! <I1-INIT877772>> 
0366 TMTEXT: rst ATE THTB | ;STATE TO SEND COUNT 
001022 MICPC=MICPC 
020366 900450 CHOVE!URTEBR IN? ¢THTB- -INI18&77772> > 
01023 MICPC=MICPC+1 
020370 063222 cMOVE 1SPX?BR! SELB! SP2> 
020372 BRWRTE BR RAIS ;IN PORT STATUS 
001024 MICPC=MICP 
020372 060521 <MOVE! TURTEBR!BR! cA! SP1>> 
020374 BRY 1 ;DLE RCV’D SET-IGNORE MAINT MODE BIT 
001025 mIcecem MICPC41 
020374 113030 <JU TBRICON! < 10$-INIT&3000%4> ! ‘10 ITSZ77 722 
020376 BRWRTE IMM, 220 WRITE DLE TO BR 
001026 MICPC=MICPC c+ 
020376 000620 ROVE!WRTEBR! MM! <220> 
020400 : TMT AS ;MAINT MODE - SEND OLE 
001027 MICPC=MICRC +1 
o20400 111033 < JUMP! CCOND! < TMTAS-INIT&3000%4> ! yu. -INIT877772>> 
o20402 10$: BRUR TE SELA!SP10 UMBERED MESSAGE? 
001030 MICPC=MICPC+1 
o20402 060610 cMOVE ! WRTEBR? BR! <SELA! SP10> > 
020404 BRO MTUN ;NO - BRANCH 
001031 m CpceniGece 1 
o2c4o4 112035 P! BROCON! < TMTUN-INIT&3000#4> ! < TMTUN-INIT8&77772> > 
020406 oe WRTE IMM, 201 :OTHERWISE SEND AN SOH 
001032 MICPC=MICPC41 
o20406 000601 (MOVE !WRTEBR! IMM! <201>> 
020410 TMTAS: OUTPUT BR, <SELB! TMTDAT> ;IN TMT SILO 
o20410 be2530 ME SUE TWROUT!BR! <SELB! THTDAT> > 
020412 ALWAYS oY 
001034 MICPC=MICPCs 1 
O20412 100451 <JU UM 1ALCOND! <1 - INI T&3000%#4> ! <I1-INIT&77772>> 
020414 TMTUN: TSTATE mir 
001035 ncpcanrorc 
020414 900602 <MOVE ! WRT SR! IMM! <TMTI- -INIT&77772>> 
001036 MICPC=MIC C+1 
020416 063222 MOVE ! SPX! BR! SELB! SP2> 
020420 BRWRTE MM, S ;ENQ TO BR 
001037 MICPC=MICP Pct] 
o20420 o0040s MOVE LWRTEBR? IMM! <S> > 
O204e2 ALWAYS TAS 
001040 RI CBCOMICP CS i 
20422 110433 < JUMP! ALCOND! < TMTAS-INIT&3000%4> ! < TMTAS-INIT8777 72> > 
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PAGE: M 
.MAC 14-DEC-77 15:07 TMTA--FIRST CHARACTER OF HEADER beg hiss 
o20424 TMTAL: OUTPUT IMM, <1!O0TMTCO> ;WRITE SOM TO TMTR CONTROL 
001041 MICPC=MICPC41 
o204e4 002011 <MOV EMROUT! IMM! <1LOTMTCO> > 
20426 BRWRTE IMM. 226 ;SYNC CHAR 
001042 MICPC=MICPC41 
020426 O00626 <MOVE ! WRTEBR! IMM! <226>> 
020430 OUTPUT eee sSELB! THTDAT> ;IN TMTR SILO 
4 pe2e30 meant ver WR T!BR!<SELB! TMTDAT> > 
H > 
OS buae y i SEE ;DECREMENT SYNC COUNT 
001044 nrcpcentcet 
020432 063566 <HOVE! SPBRX? BR DECA SP» 
020434 2 ™ MTEXT ; DONE? 
001045 NICPC=MICPC+ 
020434 111422 TOMBE SCOND! < TMTEXT-INIT&3000%4> ! ¢THTEXT- -INIT&77772>> 
020436 ae 0 TMTAL NO, OUTPUT SECOND SYNC? 
001046 MICPC=MICPC+1 
020436 112041 < JUMP ! BROCON! < TMTAL-INIT&3000%#4> ! < TMTAL- serene sass 
020440 ALWAYS I1 ;NO 


001047 MICPC=MICPC+1 
020440 100451 CSUMB? ALCOND! < I1- INI T&3000#4> !< IT1-INIT8&77772>> 


DOCGAH . MAC 
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14-DEC-77 15:07 
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TMTB--OUTPUT FIRST CHAR OF COUNT 


.SBTTL TMTB--OUTPUT FIRST CHAR OF COUNT 


SEQ 


DDCGAH . MAC 
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020442 


o2e044e 
020444 


o20444 
O20446 


020446 
0204S0 


BBb488 


O204Se 
O0e04S4 


O204S4 
O0204S6 
O204S6 
020460 


0204 
0204 


BBO4e4 


20464 
O466 


020466 
020470 


020470 
0e047e 


020472 
020474 
020474 
020476 
020476 
020500 
020500 
O020S0e 
d20S02e 
O0e0S04 


020504 
Oe20S06 


14-DEC-77 15:07 


001071 
063260 


M1S 


TMTB--OUTPUT FIRST CHAR OF COUNT 


TMTB: 


TBl: 


TBO: 


SPBR ey INCA, SP 12 


<MOVE ! ?SPERX? ER? INCA! SP12> 

OUTPUT SELB! OINDAT1 

MICPC=MICPC+1 

<MOVE! T! t<SELB! OINDAT1>» 
LA!SPi6 


Hicecomrepes 
«MOVE ! LDMAR! BR! <SELA!SP16>> 


Micecsmicecti 


repress arto 


MICPC<MICPC 
— THRREN? INC Inman? GR! <SELA! SP12>> 


BR 
micec are 
POMP rma» 
Aten 
Meter ce 'SP16> 
4 TB2 
Cones ZCoND? 


; INCREMENT MSG NO 


;GETPOINTER TO NEXT TMT LINK 
;WRITE MSG TMTED TO FLAGS 
;PICK UP MSGNO 

;GET WRAPAROUND ADDRESS 


; WRAPAROUND 


UMP ! ZC of eat -INIT&3000#4> ! < TB2-INIT&77772>> 


Ricecst 
Peta 
Reser orn 
re 
MMOVE SHRTEBR! IMM! <TMTC-INIT&777/2>> 
Riera 5 pengeen 
OUTPUT REAR seo 001 
PASre IAG THEMX! INCMAR! <SELB! IBAL> > 
sre MX! INCMAR> , SELB! IBA2 
SLSRe IAS mee INCMAR! <SELB! 1BA2> 


Ice = 
MOVE? Ohh seieeser> 


;OFFSET TO NEXT LINK 


; UPDATE THE POINTER 
;ADDRESS TMTR STATE 

; UPDATE IT 

; WRI TELOWBY TEOF ADDRESS 
;WRITE HIGH BYTE OF ADDRESS 


;HIGH BYTE OF COUNT TO SP7 


;WAIT TO MASK OFF MEM EXT. BITS 


SP IBUS , NPR, SPO 

MICPC=MICPC+1 

cMOVE ESPXET SiNPR! SPO? 

BRWRTE 

MICPC=MI PCdi 
(MOVE ! WRTEBR! IMM! <220>> 


SP 
MICPC=MICPC+1 

<MOVE ! SPX! BR! AANDB! SPO> 
SP IMM, 300, SP6& 


;MASK FOR MXT 
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PAGE: QO 
14-DEC-77 15:07 TMTB--OUTPUT FIRST CHAR OF COUNT SEQ dies” 
901 72 MICPC=MICPC+1 
00 Soe < MOVE : SPX: IMM! 300! SP&> 
nb, MX! INCMAR, AANDB! SPE ;TURN OFF CC2 
001073 MICPC=MIC 
<HOVE tHR TERR! Mx! INCHA MAR! <AANDB! SP6> > 
sail Rice wt LB! ;ALSO WRITE COUNT TO TMTR SILO 
b43250 i 8 anes TMEMX! “SELB! THTDAT> > 
;SHIFT BITS INTO CORRECT POSITION 
9010 or eae 
1028 <MO te SR WRTEBR! SELB? 
001076 MIC TAICPC+ 
001620 <MO 1SHF TBR! WRTEBR? SELB> 
001077 BRR BCeMICPC+1 
001620 <MO {SHF TER! WRTEBR! SELB) 
001100 MICPC=M +1 
001620 COVE? SHE T *WRTEBR! SELB> 
OUT ‘ONPR 
001101 MICPC=MI 1 
061310 <MOVE ! TX! BR! <AORB! ONPR> > 
SPBR MX LB, SP6 ;LOWBYTE OF COUNT TO SP6 
9011 2 nrc =M 
4208 < ! x! MEMX! SELB! SP6> 
ALWAYS 
001103 MICPC=MI 
1004Si CJUMB TALCOND! ¢ 1- INIT83000%4> # <I1- -INIT8&77772> > 
TB2: BRWRTE IMM, <<TML1-TML8>837 ;GO BACK TOFIRST LINK 
001104 MICPC=MICPCH1 
000726 <MOVE 'WRTEBR! IMM! << TML1-TML8>8377>> 
ALWAYS TB1 
001105 MICPC=MICPC+1 
110461 < JUMP! ALCOND! < TB1-INIT&3000#4> ! < TB1-INIT&77772> > 
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Pace: 02960" 
DDCGAH. MAC 14-DEC-77 15:07 TMTC--OUTPUT SECOND CHAR OF COUNT Seo 6156 
1406 .SBTTL TMTC--OUTPUT SECOND CHAR OF COUNT 
1402 020536 TMTC: IMM, 77 ;MASK TO CLEAR MXT BITS 
(1) 001106 MIC =MICPCH1 
A pens 36 000477 «MOVE! WRTEBR! IMM! <77>> 
1403 O2054 SPBR BP, AANDB, SP7 ;CLEAR THEM 
(1) 001107 MICPC=MICPC+1 
(1) O20S4O 063667 < MOVE ! SPBRX! BR! AANDB! SP7> 
1404 020542 OUTPUT OP, «SELB! TMTDAT> ;WRITE TO TMT SILO 
(1) 001110 MICPC=MICPC+1 
ide o20s42 062230 <MOVE ! WROUT ! OP! <SELB! TMTOAT> > 
1410 *SBTTL TMTD--RESPONSE FIELD-NUMBERED MESSAGE 
1411 oz2os44 T™TD: STATE  TMTE 
(1) 001111 MICPC=MICPC+1 
(1) o20s44 900520 (MOVE ! WRTEBR! IMM! < TMTE-INIT&777/2> > 
1412 O20546 SP DECA, SP& ;ADJUSRT COUNT FOR TWO'S COMPLEMENT 
(1) 001112 MICPC=MICPC+1 
(1) oO20S46 063166 <MOVE ! SPX! BR! DECA! SP&> 
1413 020550 c Tbe :NO OVERFLOW 
(1) 001113 MICPC=MICPC+1 
(1) Oe20S50 111115 < JUMP! CCOND! < TD2-INIT&3000#4> ! <TD2-INIT&77772>> . 
1414 O20552 SP BR, DECA, SP7 ;DECREMENT HIGH BYTE OF COUNT 
(1) oosse oesier Meera et cecareer> 
1415 O20554 TD2: LOMA IMM igPit :RESP FIELD ADDR TO MAR 
(1) 001115 MICPC=MICPC41 
(1) O20SS4 010171 <MOVE #LOMAR! IMM? (TSP 118 77>> 
1416 020556 TD3: OUTPUT mE FX SELB! TMTDA ;WRITE IT TO SILO 
(1) 001116 MICPC=MICPC+1 
(1) oO20SS& 042230 <MOVE ! T!MEMX! <SELB! TMTDAT> > 
1417 020560 ALWAYS XIT 
(1) 001117 MICPC=MICPC+1 
(1) O20560 110556 <JUMB#AL COND! <XEXIT-INITS O00#4> !<XEXIT-INIT&77772>> 
1418 .SBTTL TMTE--NUMBER FIELD--NUMBERED MESSAGE 
1419 O20S562 TMTE: 
1420 d20562 SPBR IBUS, NPR, SPO ;READ NPR CONTROL REGISTER 
(1) 001120 MICPC=MICPC+1 
(1) O20S62 123600 <MOVE ! SPBRX! IBUS! NPR! SPO> 
1421 020564 0 Tl ;BUSY - GET OUT 
(1) 001121 MICPC=MICPC+1 
(1) o20S64 102051 <TUNP ON! <TL-INTTB300Q44> # <T1-INIT877722>> 
1422 020566 UTPUT IBUS. <INDAT1! TMTOAT> ;WRITE IT TO THE SILO 
(1) 001122 MICPC=MICPC+] 
(1) O20566 O22016 MOVE ! WROUT ! IBUS! < INDAT1! TMTDAT> > 
1423 020570 STAT TMT 
(1) 001123 MICPC=MICPC+1 
(1) 020570 O00525 <MOVE !WRTEBR! IMM! < TMTF-INIT&77772> > 
1424 020572 ALWAYS TH3 
(1) 001124 MICPC=MICPC+1 
(1) 020572 110573 < JUMP! ALCOND! < TH3-INIT&3000#4> ! < TH3-INIT8&777/2>> 
1425 .SBTTL TMTF--NUMBERED MSG ADDRESS FIELD 
142? O20574 ™TF: STATE TFl 
(1) 001125 MICPC=MICPC+1 
(1) O20S74 900532 (MOVE 'WRTEBR! IMM! <TFL-INIT877772>> 


PAG 0:3¢Dr 
DOCGAH. MAC 14-DEC-77 15:07 TMTF--NUMBERED MSG ADDRESS FIELD ~ ficy af$* 
1428 020576 TF2: SP BR, SELB, SP2 
iL) 7 beaess nicecentce es) SELB! SP2> 
1429 BSB E08 BRWRTE ;LOAD ADDRESS 
(1) 001127 MICPC=MICPCSi 
(1) O20600 000401 (MOVE !WRTEBR! IMM! <1>> 
1431 020602 TF3: 0 OUTPUT | BR, «SELB! TMTDAT> 
ch) o20602 823338 <nOvE CASH! br: '<SELB! TMTDAT> > 
14 020604 
(Dp 020604 rere nicec=n aL << T1-INIT&3Q0C00#4> §<I1-INIT8777/2>> 
1si2 CaUFec PRA SABEHES ARRESTS 
1438 O20606 TFl: in :£0M MASK TO BR 
(1) 001132 AICECEMI Bes] 
(1) 020606 d004he CHOVE WRTEGR! IMM! <2>> 
1439 020610 ‘ ou TPUT BR, «SELB! OTMTCO> ;UPDATE TMTR CONTROL REGISTER 
(1) O20610 923333 < Pestrcret BR! <SELB? OTHTCO>> 
1440 020612 OUTPUT ®8R,<SELB!T ;OUTPUT A GARBAGE CHAR 
iL) geoeie BABE PASE TAGE bes csevos roa 
1441 ospets BRWR 5, 1i8Al :READ LOW ORDER FROM INBA 
(1) 14 Rene Ma OE THATESR "were Soe” 
1442 pseete Sho THEI :1F ODD BYTE--wRANCH 
Ch) 020616 003128 RicPcomrcrcet -INIT&3000#4> ! < TMTF1-INIT8777/2> > 
“7? 
1443 020620 STATE " THIN 
<1) 001137 RICPESMICPCS 1 
(1) O20620 o00541 <MOVE : MRTEBR? IMM? TMTH-INIT&77772> > 
1444 O206e2 ALWAYS XEXIT 
(1) 001140 MICPC=MICPC+1 
(1) Oe20622 110656 < JUMP! ALCOND! <XEXIT-INITS2000#4> ! <XEXIT-INIT8777/2> > 


PAGE: 01980" 
. MAC 14-DEC-77 15:07 TF1-NUMBERED MSG HEADER EOM SES 0198 


; eeRRRRERRERETIME CRITICAL PATH--MODIFY WITH GREAT CARE 
S8TTL TMTH--ROUTINE TO OUTPUT DATA CHARACTERS 
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020624 TMTH: SPBR ‘ ; NPR CONTROL 
001141 MICPC=MI 
020624 123600 «MOVE ! SPBRX! IBUS! NPR! SPO> 
020626 BR4 a8 ;IF RECV NPR --PROCESS 
?v 
020626 CF ORBT DASCONE <S$-INIT83000#4 ! <S$-INIT8777/2>> 
020630 BRO ;IF NPR IN PROGRESS --BRANCH 
airs! +1 
020630 < *BROCON! < I1-INIT&3000#4> ! <I1-IN117877772>> 
020632 OUTPUT igus < INDAT1! TMTDAT> ;WRITE THE EVEN CHAR TO TMT SILO 
MICPC=MI #1 
020632 < MOVE! WROUT ! IBUS! < INDAT1! TMTDAT> > 
020634 SP i IIBA1, SPO ;READ LOW BYTE OF BA TO SP 
90 14 nICPC=NT +1 
020634 10 «MOVE ! SPX! TBUS! IIBAL! SPO> 
020636 OUTPUT BR, <INCA!IBAL> ;OUTPUT INCREMENTED BA 
001146 mIcpCenrcres 
020636 062064 <MOVE ! WROUT ! BR! < INCA! IBAL>> 
020640 SP BR, DECA, SP ;DECREMENT CHARACTER COUNT 
001147 MICPC=MICPC+1 
O20640 063166 <MOVE ! SPX! BR! DECA! SP&> 
20642 T ;NO OVERFLOW 
001150 MICPC=MICPC+1 
O20642 111153 < JUMP! CCOND! < TH6-INIT&3000#4> ! < THE-INIT&77772> > 
020644 SP BR, DECA, SP ;DECREMENT HIGH BYTE OF COUNT 
Q01154 MICPC=NICP CI 
g20644 167 «MOVE! SPX! BR! DECA! SP7> 
0646 2 H1 ;BYTE COUNT ZERO 
001152 MICPC=MICPC+1 
O20646 101771 a < JUMP! ZCOND ! <HEH1-INIT83000#4> ! <HEH1-INIT&777/2> > 
020650 BRWRTE igus TMTCON ;READ TMTR CONTROL CSR 
001153 MICPC=MICPC+1 * 
020650 020620 <MOVE ! WRTEBR! IBUS! < TMTCON> > 
020652 BRY THS ;IF MORE ROOM IN SILO--62ANCH 
001154 MICPC=MICPC4+1 
O20652 113160 <JUMP ? BRICON? < THS-INIT&3000#4 # <THS-INIT87772) > 
020654 TMTF1: STATE TMTHO 
001155 MICPC=MICPC+1 
020654 000560 <MOVE ! WRTEBR! IMM! < TMTHO-INIT&77772>> 
020656 : XEXIT: SP ‘ BR SELB, SP ;STORE NEW TRANSMIT STATE 
020656 §¢4338 <MOV 7 
020660 ALWAYS Ii 
001157 MICPC=MICPC+1 
020660 100451 < JUMP! ALCOND! <I1-INIT&3000#4> ! <I1-INIT8&77772>> 
Ge0bbe TMTHO: 
02066: TH9: OUTPUT IBUS, <INDAT2! TMTDAT> ;0DD CHAR TO SILO 
001160 MICPC=MICPC+] 
g2066e 022030 <MOVE ! WROUT 2 TBUS! < INDAT@! THTDAT> > 
4 SP tBus Al, SPO ;READ LOW BYTE TO BA 
voy BRULEE “AgUETAG: Yayse 1901 spo 
< : ' 
BSceee sess BR, < RCAF EBAL® ;OUTPUT THE INCREMENTED BA 


E16 


PAGE: 01990M 
ODCGAH. MAC 14-DEC-77 15:07 TMTH--ROUTINE TO OUTPUT DATA CHARACTERS S€0 0199 
(1) 001162 MICPC=MICPC+1 
(1) 020666 062064 «MOVE! WROUT! BR! < INCA! IBAL>> 
1480 020670 Cc HOINCH 
(1) 001163 MICPC=MICPC+1 
(4) 020670 111360 < JUMP! CCOND! <HOINCH-INIT&3000#4> ! <HOINCH-INIT8&77772> > 
1481 020672 THE: SP BR, DECA, SP6& ;DECREMENT CHARACTERCOUNT 
(1) 001164 MICPC=MICPt+1 
(1) 020672 3166 <MOVE ! SPX! BR! DECA! SP6&> 
i482 020674 C TH? ;NO OVE 2FLOW 
(1) 001165 MICPC=MICPC+1 
(1) 020674 111170 < JUMP! CCOND! < TH7-INIT&3000#4> ! < TH7-INIT&77772> > 
1483 020676 SP BR, DECA, SP7 ;DECREMENT HIGH BYTE OF COUNT 
(1) 001166 MICPC=MICPC+1 
(1) 020676 063167 <MOVE ! SPX! BR! DECA! SP7> 
1484 020700 z HEH1 ;BYTE COUNT ZERO 
(1) 001167 MICPC=MICPC+1 
(1) O20700 101771 < JUMP! ZCOND ! <HEH1-INIT&3000#4> ! <HEH1-INIT8&77772> > 
1485 020702 TH?: SPBR I S, NPR, SPO ;READ NPR REGISTER 
(1) 001179 MICPC=MICPC+1 
(1) O20702 123600 <MOVE ! SPBRX! IBUS! NPR! SPO? 
1487 020704 BRO Be ;IF NPR BUSY WAIT TO GO 
(1) 001171 MICPC=MICPC 41 
(1) 020704 112200 < JUMP! BROCON! < TH2- INI T&3000#4> ! < TH2-INIT&777/2>> 
1489 07 STATE _TMTH 
(1) 001172 MICPC=MICPC+1 
(1) 20706 O00541 (MOVE! WRTEBR! IMM! < TMTH-INIT8777/2> > 
1490 020710 TH3: sP BR, SELB, SP2 ;SAVE TSTATE 
(1) 001173 MICPC=MIC +1 
(1) 020710 063222 <MOVE!S X!BR! SELB! SP2> 
1491 O20712 TH3X:  BRWRTE IMM, 156 ,CLEAR CO AND Cl 
C1) 001174 MICPC=MICPCT 
(1) oO20712 O00SS6 <MOVE ! WRTEBR! IMM! < 156>> 
1492 020714 SP BR, AANDB, SPO :CLEAR THE BITS 
(1) 001175 MICPC=MICPC+1 
(1) 020714 063260 <MOVE ! SPX! BR! AANDB! SPO> 
1493 020716 OUT BR, < INCA! ONPR> 
(1) 001176 MICPC=MICPC+1 
(1) 020716 061070 <MOVE ! WROUTX! BR! < INCA! ONPR> > 
1498 0207 ALWAYS bb 
(1) 001177 MICPC=MICPC+1 a 
(1) 020720 100451 < JUMP! ALCOND! < I1-INIT&3000#4> !<I1-INIT8&77772>> 
1489S 020722 THe: STATE TH7 
(1) 001200 MICPC=MICPC+1 
(1) Oe0722 000570 (MOVE ! WRTEBR! IMM! < TH7-INIT&77772> > 
1500 020724 ALWAYS XEXIT 
(1) 001201 MICPC=MICPC+1 ‘ 
(1) Ovo724 110556 < JUMP? ALCOND! <XEXIT-INIT&3000#4> ! <XEXIT-INIT8777/2>> 
1S0e ; RERRERZRARERRKEND TIME CRITICAL PATHRRHRRERERRRRRAAARRA RELA AAR AES 
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PAGE: O2000M 
MAC 14-DEC-77 15:07 TMTI--SEND UNNUMBERED TYPE FIELD SEQ G200 
.SBTTL TMTI--SEND UNNUMBERED TYPE FIELD 
020726 TTI: LDMA IMM, T :ADORESS OF TYPE FIELD TO MAR 
001202 MICPC=MICPC41 
07 010151 <MOVE! LOMAR! IMM! <T&377>> 
07 SP nen x , :COPY IT TO SPE 
001202 MICPC=MICP c+i 
020730 043226 ROVE !SPX*NERX: SELB! SPS) 
020732 STATE MTJ 
001204 RICPESMICPC+1 
020732 O00606 cMOVE LWRTEBR! IMM? < THT - INIT&77772>> 
020734 ALWAYS TD 
001205 MICPC=MICPC+1 
020734 110516 < JUMP! ALCOND! < TD3-INIT&3000#4> ! < TC3-INIT8777/2>> 
*SBTTL TMTJ--SEND SUB-TYPE FIELD 
020736 T™TJ: CD T ;ADDRESS OF SUB-TYPE FIELD TO MAR 
001206 MICPC=MICEC? | 
020736 010152 VE!LOMAR! IMM! <ST8377>> 
020740 S78 TMTK 
001207 AICPe= MICPC+1 
020740 000611 CHOVE THATESR? IMM! <TMTK-INIT8777/2>> 
020742 ALWAY T 
001210 MICPC=MICP C+ 
020742 110516 < JUMP! ALEOND! <TD3- INIT&3000#4> ! <TD3-INIT8&777/2>> 
.SBTTL TMTK--OUTPUT RESPONSE FIELD (UNNUMB MSG) 
020744 TMTK:  @RWRTE IMM.3 ;WRITE A 3 TO BR 
001211 MICPC=MICPC41 
020744 900403 MOVE THATEGR! IMM? <3>> 
020746 NOP BR, SUB, SP& ;IF TYPE LESS THAN 3 
001212 MICPC=MICPC+1 
020746 060346 <BR! SUB! SP&> 
020750 TSTATE TMTL 
001213 MICPC=MICPC+1 - 
020750 000617 <MOVE !WRTEBR! IMM! <TMTL-INIT877772> > 
001214 MICPC=MICPC+1 
020752 063222 <MOVE ! SPX! BR! SELB! SP2> 
020754 MTLO 
001215 Cores Con! 1 
020754 111224 UMP CCOND! < TMTLO-INIT&3000#4> ! < TMTLO-INIT&77772> > 
020756 WAYS TDe 
001216 NICPCSMICP C+ 
020756 110515 < JUMP! ALCON! <TD2-INIT&3000%4> ! <TD2-INIT8777/2>> 
"SBTTL TMTL--UNNUMB MSG NUMBER FIELD 
020760 TMTL: STATE TMTM 
001217 nicpcs CPC+1 
020760 000631 <MOVE ! TEBRE Teme cTHTM- -INIT8&777/2>> 
001220 MICPC=MICPC+1 
020762 063222 CHOVE! SPX BR! SELB! SP2> 
020764 BRWRTE IMM, 3 
001221 MICPC=MICPC41 
020764 O00403 CHOVE THRTEBR# IMM? <3>> 
020766 CMP SP6 :IS MESSAGE REP 
001222 MICPC= =MIEPe> | 


020766 060366 <«SUBTC! BR! SP&> 
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020772 
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020774 
020776 


020776 
021000 


021000 
021002 


021002 
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001234 
O62e31 


001235 
062230 
001236 
060530 


001237 
113644 


001240 
000776 


001241 
063270 


001242 
000400 


001243 
110SS6 


001244 


G16 


—. co meat 
TMTL--UNNUMB MSG NUMBER FIELD 


Zz TMTL1 ; YES 

frcecemicecs 1 

<JU ore! 8 ere -INIT&3000#4> !< TMTLI-INIT8&77772>> 

TMTLO: peere MM, O ;ADDRESS CONTNAT OF ZERO 


«MOVE !WRTEBR! IMM! <Q>> 
ute PUT areeesl «SELB! TMTDAT> ;SEND IT OUT 
MOVE tLe CAQUT! ans «SELe! THTDAT ) 
nice stich mi ie ;BACK TO IDLE LOOP 
M = + 
JUMP! ALCOND! <I 1-INIT&83000#4> !<I1-INIT8&77772>> 


tMTLI: BRWRTE BR,SELA!SP12 ;WRITE A RESPONSE 
MICPC=MICPC+ I 
<mOve ELURTEER!OR! (SELA!SP12>> 


M =M 
niger ALCON! <TMTAS-INIT&3000#4> ! !<TMTAS-INIT8&77772>> 
* SBTTL le nee MSG--STATION ADDRESS 


STATE _TNE 
" PC=MICP' 
RSET FEGR? IMM! THEOM-INIT8777/2> > 


ALWAY 
ALOR CONT CPE +1 
CHET ALCOND! < TF2-INIT&3000%4> ! <TF2-INITS777/2>> 
TNEOM: BRURTE isms SEND OF MESSRGE TO BR 
MICPC=MICPC41 
CHOVETURTEGR! IMM! <2>> 
OUTPUT BR, <SELB!OTMTCO> 
MOVE HROUTTOR! <SELB!OTMTCO> > 
OUTPUT | BR, ‘SELB! THTOAT> : OUTPUT A GARBAGE CHARACTER 
CMOVE ! WROUT! BR! <SELB! TMTDAT> > 
SRURTE BR AA SPID ;SHIFT STATUS LEFT 


=M ¢ +1 
< 'WRTEBR! BR! <AA!SP10>> 
ae n iheone ; IF HDX SET---BRANCH TO CLEAR OK TO SEND 
7 
< *BR7CON! < TNEOM2- INTTB3000%4> ! < TNEOM2= INIT&777/2>> 
BRURTES TAM 376 MASK TO TURN OFF UNNUMB PENDDING 
TAGCE TORT Ciel Trent <aPa> 
TNEOM1: SP BR, AANDB, SP10 ;MASK TO LINE STATUS WORD 


TEOM2: STATE THT 
MICPC=MICPC+1 
<MOVE ! WRTEBR! IMM! < TMTA-INIT&7772>> 
AYCPCOMIC ay 
< JUMP! ALCOND! <XEXIT-INIT&3000#4> ! <XEXIT-INIT87772>> 
TNEOM2: SRURTE mire " 76 :CLEAR OK TO SEND AND UNNUMB PENPENDING 


SICPCEMICPCHI. 


PAGE: O2020m 
TMTM--UNNUMB MSG--STATION ADDRESS SES Cede 


(2) 921032 O00S76 «MOVE !WRTEBR! IMM! < 176>> 

1SS6 021034 ALWAYS TNEOM1 

1) 001e4S MICPC=MICPC+1 

i) 021034 110641 < JUMP! ALCOND! < TNEOM1-INITS3000#4> $< TNEOML-INIT877772> >» 


DOCGAH. MAC 14-DEC-77 15:07 
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PAGE: 02030M 
DOCGAH. MAC 14-DEC-77 15:07 TIMSRV--TIMEOQUT ROUTINE--SENDS REP SEQ 0203 
1558 .SBTTL TIMSRV--TIMEOUT ROUTINE--SENDS REP 
1560 "ENABLE LSB 
i561 021036 TIMSRV: BRWRTE IMM,177 ;MASK OFF BR REQ 
(1) 001246 MICPC=MICPCSi 
(1) 021036 000S77 (MOVE ! WRTEBR! IMM! <177>> 
1562 ;RESET TIMER---SLICK MOVE 
1563 ‘SINCE TIMER IS RESET BY WRITING 
1564 !A 1 AND THE EXPIRATION LOOKS 
1565 :LIKE 1--VOILA 
1566 021040 OUT BR, <AANDB! OBR> ;AND THE BIT ON 
(1) 001247 MICPC=MICPC+1 
(1) O21040 061271 SHOVE ROU TX! BR! <AANDB! OBR) » 
1567 02104 SP BR, INCA, SP14 ; INCREMENT THE COUNT 
(1) 001250 MICPC=MICPC+1 
(1) O2@1042 063074 «MOVE! SPX! BR! INCA! SP14> 
1568 ;NOTE: STATE OF “C™ BIT 
1569 !MUST BE PRESERVED FROM THIS 
1570 :POINT UNTIL IT IS TESTED 
1571 o21044 TIMEO: 
1572 021044 BRWRTE BR,SELA!SP1 ;READ STATUS BYTE 
CL) 001251 MICPC=MICPC+1 
(1) 021044 960601 (MOVE ! WRTEBR! BR! <SELA!SP1>> 
1573 Oe1046 BRO IDLE 
(1) 001252 MICPC=MICPC+1 
(1) 021046 102047 < JUMP! BROCON! < IDLE-INIT83000#4> ! < IDLE-INIT877772>> 
1574 021050 BR7 IDLE ;IF IN MAINT. MODE DISABLE TIMER 
(1) 001253 MICPC=MICPC+1 
(1) O210S0 103447 < JUMP! BR7CON! « IDLE-INIT83000#4> ! < IDLE-INI18777/2> 
1575 021052 BRWRTE BR, SELA!SP1O ;READ L NE STATUS REGISTER 
1) 001254 MICPC=MICPC+1 
(1) Oe210S2 O60610 <MOVE LWRTEBR! 'BR! <SELA!SP10>> 
1576 021054 BSHF TB ;ROTATE IT RIGHT ONE BIT 
(1) 001255 MICPC=MICPC41 
(1) O210S4 061620 <MOVE ! SHF TBR! SELB! BR> 
1577 021056 BRY Bi ;START MODE - RESEND A START 
(1) 001256 MICPC=MICPC+1 
(1) O210S6 103161 < JUMP! BRYCON! <BS1-INIT&3000%4> !<BS1- INIT8777/2>> 
1578 TEST STATE OF C BIT FROM INC SP14 
1578 021060 Cc 20 LIF CARRY SET COUNT HAS EXPIRED 
(1) 001257 MICPC=MICPC+ 
(1) O21060 111263 < JUMP! CCOND! (20$-INITS200084) # 20$-1NIT8777/2>3 
1580 1062 BR TABUPD IUMBERED MESSAGE IN PROGRESS 
(1) 001260 MICPC=MICPC+1 
(1) O21062 116315 <JUMP! BROCONE < TABLPD- -INIT&3000#4> ! <TARLPO- -INIT&77772>> 
1581 021064 BR? TABUPD NNUMBMSSIN PROGRESS 
(1) 001261 MICPC=MICPC+1 
(1) 021064 117715 gzume: SESE ON? < TABUPD- oe Nt ed al INIT877772>> 
1582 021066 AYS SNDACK ;ELSE TRY TO SEND AN ACK 
(1) 001262 MICPCeMICr C+1 
(1) O21066 110723 < JUMP! ALEOND! < SNDACK- INIT&3000#4> ! <SNDACK-INIT8777-"2>> 
1583 021070 TIME1: 
1584 021070 208: 
1585 021070 BRWRTE IMM,20S :SET OK TO SEND,UNNUMS PEND, AND 
(1) 001263 MICPC=MICPCH1 
(1) 021070 900605 «MOVE !WRTEBR! IMM! <20S> > 
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PAGE: O2040M 
.MAC 14-DEC-77 15:07 TIMSRV--TIMEOUT ROUTINE--SENDS REP SEQ G204 
;LINE GONE IDLE 
021072 SP BR, AORB, SP10 
001264 MICPC=MICPC+1 
021 72 063310 «MOVE! SPX! BR! AORB! SP10> 
1074 SP IMM, 374, SP ;RESET THE TIMER TICK COUNT 
001265 MICPC=MICPC41 
021074 003374 <MOVE ! SPX! IMM!374!SP14> 
021076 BRWRTE BR, SELA!SPle ;GET LAST NUMBER SENT 
001266 MICPC=MICPC+1 
021076 G60612 (MOVE ! WRTEBR! BR! <SELA!SP12>> 
021100 CMP SP17 ;COMPARE TO LAST ACKED 
01267 MICPC=MICPC+1 
p21 10cibensie <SUBTC! BR! SP17> 
021102 2 ° ACK :IF EQ --SEND ACK 
001270 MICPC=MICPC+1 
021102 111723 < JUMP! ZCOND! <SNDACK-INIT&3000%4> ! <SNDACK-INIT8&77772> > 
021104 TIME2: LOMA IMM. REPCS ;CUMULATIVE REPS SENT 
001271 MICPC=MICPC41 
021104 9010015 <MOVE! LOMAR! IMM! <REPCS8&377> > 
021106 SP MEMX ‘ :COPY IT TO SPO 
001272 MICPC=MICPC+1 
021106 043220 <MOVE ! SPX! MEMX! SELB! SPO> 
021110 MEM BR, INCA! SPO ; INCREMENT IT 
001273 MICPC=MICPC+1 
021110 O682460 <MOVE ! WRMEM! BR! < INCA! SPO>> 
Delile LDMA IMM. REPST : ADDRESS DYNAMIC REP COUNTER 
001274 MICPC=MICPC41 
021112 010003 <MOVE ! LOMAR! IMM! <REPST8&377> > 
021114 BRWRTE MEMX, SELB ;COPY IT TO THE BR 
001275 MICPC=MICPC+] 
021114 O40620 (MOVE ! WRTEBR! MEMX! <SELB> > 
021116 BSHF TB 
001276 MICPC=MICPC+1 
021116 061620 <MOVE ! SHF TBR! SELB! BR> 
021120 MEM BR, SELB 
001277 mIcPce cect 
021120 062620 <MOV TURMEM? R! <SELB>> 
O21le2 BRO RTHRES 
001300 MICPC=MICPC+1 
021122 106376 < JUMP! BROCON! <RTHRES-INIT&3000#4> ! «RTHRES-INIT8777/2>> : 
021124 LDMA MM, T ;LOAD ADDRESS OF TYPE FIELD IN UNNUMB Sk 
001301 MICPC=MICPC41 
021124 O10151 <MOVE ! LOMAR! IMM! <T8377> > 
021126 MEMINC I ;LOAD REP TYPE 
001302 MICPC=MICPC41 + 
021126 016403 <MOVE ! WRMEM! INCMAR! IMM! <3>> 
021130 ALWAYS SAl 
001303 MICPC=MICPC+1 i 
021130 110725 “JUMP? AL COND! <SAL-INIT&3O004> # <SAL-INIT8777/2> > 
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PAGE: O20SDM 
DOCGAH. MAC 14-DEC-77 15:07 TIMSRV--TIMEOUT ROUTINE--SENDS REP SEQ 0205 
1606 021132 TEOM: BRURTE 1BUS, UBBR 
(1) 001304 HOVE CPC 
(1) 021132 120620 TBR? revs: «ueER> 
1607 021134 RR ;NON-EXISTANT MEMORY 
(1) 001305 NIcPC=MICECSi 
(1) 021134 106364 < JUMP! BROCON! <NXMERR- INI T&3000#4> ! <NXMERR-INIT&777/2> > 
1608 021136 RWRTE 2 ;EOM TO BR 
(1) 001306 BICPCEMIGPCS 
(1) 021136 oo04de cMOVE tWRT BR! IMM! < 
1609 021140 T <SELBIO MTCO> ;WRITE TMTR CONTROL 
(1) 001307 ee =MICPC+] 
(1) 021140 062231 <MOVE WROUT! BR? «SELB! QTMTCO>> 
1610 O21142 <SELB! TMTDAT ;WRITE GARBAGE DATA 
(1) 001310 RuceC PERG ib 
(1) O2114e 062230 £{SELB!TMTDAT> » 
1611 O21144 SELA! SP ;CKECK FOR BOOT MODE 
(1) 001311 pate ast 
(1) 021144 060601 'WRTEBR! BR! <SELA!SP1>> : 
1612 021146 BR? BTEOM ;---IF SET IS MAINT MSG 
(1) 001312 MICPC=MICPC+1 
(1) O21146 113756 < JUMP! BR7CON! <BTEOM-INIT&3000#4> ! <BTEOM-INIT8&77772> > 
1613 021150 TEOM1: LOMA BR SELA! SP 16 sADDRESS LAST TMT LINK 
(1) 001313 MICPC=MICPC+1 
(1) O21150 070216 «MOVE! LOMAR! BR! <SELA!SP16>> 
1614 021152 BRWRT MX, SELB 
(1) 001314 MICPC=MIC +1 
(1) O21152 O40620 <MOVE? WRTEBR! MEMX! <SELB> > 
1615 021154 TEOMe 
(1) 001315 RICPCANICPCe] 
(1) Oe@1154 112242 < JUMP! ON! <TEoMe-INIT&3000#4> ! « TEOMB- -INIT8&77772>> 
1616 021156 TEOM3: BRWRTE IMM, 375 N OFF MESSAGE PENDING 
(1) 001316 MICPC=MICPC II 
(1) 021156 000775 <MOVE !WRTEBR! IMM! <375>> 
1617 021160 SPBR BR RANDB, SP10 ; 
(LD) 021160 peser0 nrcrgentcec si !RANDB! SP10> 
1618 O2ll162 BRO eee ; IF UNNUMB PENDING--GO AWAY 
(1) 001320 MICPC=MICPC 1 
(1) O21162e 112242 BROCOR! « TEON2-INIT83000%4> < TEOM2-INIT877772>> 
1619 021164 tg ATE 
(1) 001321 MICPC=MICPC+41 
(1) 021164 o00400 CMOVE! RTEBR? IMM! <THTA-INIT87772> > 
(1) 001322 nICPC=MICP C+1 
(1) 021166 063222 'SPX!BR' SELB! SPe> 
1620 “oor L SNDACK=-ROUT INE TO SEND AN ACK 
1621 021170 SNDACK: LDMA 
(1) 001323 SOePCeMIGPCHI 
(1) 021170 O1015) CHOVE? OMAR! IMM! <18377>> 
1622 ell MEMINC IMM. | 
(1) 001324 MICPC=MICPCHi 
(1) O21172 O16401 <MOVE EWRMEN! INCMAR? IMM! < 1>> 
1623 021174 SAL: BRWRTE 
(1) 001325 MICPC=MICPC41 
(1) 021174 O00405 <MOVE ! WRTEBR! IMM! <S>> 
i624 021176 SA2: MEMINC IMM, 300 
(1) 001326 MICPC=MICPC41 


PAGE: O2060M 
DDCGAH. MAC 14-DEC-77 15:07 SNDACK--ROUTINE TO SEND AN ACK SEQ 0206 
(1) 9 1176 016700 <MOVE! WRMEM! INCMAR! IMM! <300>> 
1625 12 SA3: SP BR, AORB, SPi0 
(1) 001327 MICPC=MICPC+1 
(1) 021 00 063310 <MOVE ! SPX! BR! AORB! SP10> 
1 120 ALWAYS IDOLE 
(1) 001330 MICPC=MICPC+1 
iB 021202 100447 < JUMP! ALCOND! < IDLE-INIT&3000#4> ! < IDLE-INIT8&777 72> > 
- : 
1628 021204 FUDGE: ®SRWRTE I NPR ;READ NPR CONTROL 
(1) 001331 MICPC=MI Buy 
(1) 021204 120600 (MOVE ! WRTEBR! IBUS! <NPR> > 
1629 021206 BRO E ; IF NPR GOING---LEAVE 
(1) 001332 MICPC=MICPC+1 
(1) 021206 102047 < JUMP! BROCON! < IDLE-INIT&3000#4> ! < IDLE-INIT8&77772>> 
1630 021210 BRWRTE BRiL MAR, SELA!SP4 ;LOAD THE MAR 
(1) 001333 MICPC=MICPC+ 
(1) 021210 070604 «MOVE! WRTEBR! BR! LDMAR! <SELA!SP4> > 
1631 021212 BR7 “ 4 ;IF SET - READ BACK ALL 200 
= 
(1) Oe21212 og4e3! aie ate Cc } 6 gso-INIT$3000%4> ! <BS2-INIT8777/2>> 
1632 Oe1214 MEMINC IBUS. INDATI ;OTHERWISE RESTORE TWO BYTES 
(1) 001335 MICPC=MICPC+1 
(1) 021214 036490 <MOVE ! M! INCMAR! IBUS! < INDAT1>> 
1633 Oelel6 MEMINC I NDAT2 “ee 
(1) 121 992338 MESVE THRMEN? NCMAR! IBUS! < INDAT2> > 
1634 651538 BRWR mM ; UPDATE---UNIBUS ADDRESS 
(1) 001337 MICPC=MICPC41 
(1) O21220 O0040e «MOVE! WRTEBR! IMM! <2>> 
1635 Oeleee2 SP BR ADD, SP4 ;UPDATE NPR COUNTER 
(1) 001340 MICPC=MICPE+1 
(1) O21222 0663004 <MOVE ! SPX! BR! ADD! SP4> 
1636 O2l2e24 I IIBA1 , SPO ;UPDATE ADDRESS LOW 
(1) 001341 MIC snIC +1 
(1) O21224 310 <MOVE ! SPX! IBUS! IIBAL!SPO> 
1637 Oelece OUTPUT BR,ADD! IBA 
(1) 001342 MICPC=MI pet . 
(1) O21226 O62004 OFT ROU 'BR! <ADD! IBAL>» 
1638 021230 SP 1BUS IIBA2, SPO ;READ HIGH ADDRESS 
(1) ge1e30 Sedsica nicpcenr cecal * TIBAZ!SPO> 
\ 2 * o 
1639 951539 OUTPUT BR Ber ibaS ;UPDATE HIGH 
(1) 001344 MICPC=MICPC+1 
(1) 021232 O62105 <MOVE ! WROUT! BR! <AC!IBR2>> 
1640 021234 SP 1pus NPR, SPO ;READ NPR REGISTER 
(1) 001345 MICPC=MICPC+1 
(1) 021234 123200 <MOVE ! SPX! TBUS! NPR! SPO> 
1641 021236 Cc RESEXT ; IF CARRY---UPDATE MXT 
(1) 001346 MICPC=MICPC+1 
(1) 021236 115151 < JUMP! CCOND! <RESEXT-INIT&3000#4> ! <RESEXT-INIT8777/2>> 
1642 021240 ALWAYS TH3X :GO DO ANOTHER NPR 
(1) 001347 MICPC=MICPC+1 
(1) Oe1e40 110574 < JUMP! ALCOND! < TH3X-INIT&3000%4> ! < TH3X-INIT8777/2>> 
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i, 08970M 
14-DEC-77 15:07 SNDACK--ROUTINE TO SEND AN ACK 
BTEOM: BRWRTE IMM,374 ;MASK FOR CLEAR MSG PENDING 
ae GROVE TAGES nme car 
* $870 ;TURN THEM OFF IN LINE STATUS WORD 
063270 psn ay P10> : 
: SP BA aLeanO8'§ ;§TORE UNRECOGNIZABLE VALUE INTO SP13 
ae2 OVER Sess sis 
6 pee ‘ Q wRH3" WILL EXIT BACK TO IDLE LOOP 
LOMA __IMM,STC RESS START OF TMT CHAIN 
B100e7 heen a 377>> 
SP 5856 ;COPY LINK ADDRESS 
001354 MICPC=MIC 
043220 <HOVE SPX? REMK? SELB! SPO> 
nie ee ;CHANGE XMIT STATE TO LINE IS IDLE 
001355 nic 
nye cn VE! UATEBR phy Ths TwTA-INITB777/2>> 
= 
4338 Shoee? SP BR! seLe: spe» 
se epcent2ecy] ;POST A DONE 
1 
! ! < TDON2-INIT&3000#4> ! < TDON@-INIT&77772> > 
114514 tiger ALC On! « pong-INIT&300 2-1 


HOINCH: 


IIBA2, SPO ;GET HIGH BYTE 
B24 PISCETODET eas recexsro 
BUACAL PEAS) ; INCREMENT AND OUTPUT 
pesaEe Steet eres BR! «INCA! IBA2>> 1 
canon fierce i ;OVERFLOW-GO INCREMENT MXT BITS bg 
my 

111364 <J tt os- INI TESOO0WN> £ «108 NET fe »> 

Ai Hay HERWISE RETURN 
001363 MICPC=MICPC #1 
110564 an < JUMP! ALCOND! < TH8-INIT&3000*4> ! < THB-INIT&77772>> 

1BUS NPR, SPO ;READ NPR REG IWTH CURRENT MXT BITS 
001364 MICPC=MIC 
123200 <MOVE 2 SPX? IBUS! NPR! SPO 
WRTE IMM ;:WRITE BIT TO ADD 

001365 nicest pct 

MOVE ! EBR! IMM! <4>> 

T BR, <ADD! ONPR> ;TURN ON PROPER MXT BITS 

001 MICPC=NICPC+ I 
061010 MOVE ! WROUTX!BR! <ADD! ONPR) 

ALWAYS 
001367 MIC Snr¢ 
110564 «JU TAL EOND! < THE-INITS3000%4> ! <TH-INIT8777/2>> 

.SBTTL REP HANDLER 

REP: Lona Hilt, REPCR ;LOAD MAR ADDRESS WITH POINTER TO REPS RECC 
atertt " cPosmcect t 
1001 <MOVE! MM! <REPCR&377>> 
sP MEMX, SELB, SPO ;READ NUMBER OF REPS RECO 


—————e ---- 


BOL 


REP HANDLER 


; 


14-DEC-77 15:07 
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nls ceedliaandinatieaotetimare Nt 


i 
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MICPC=MICPC+1 
CMOVE ! SPX MEMX? SELB! SPO? 
MEM DP, < INCA! SPO> ; INCREMNT REPS RECD 
MICPC=MICPC+1 
(MOVE ! WRMEM! DP! < INCA! SPO> > 
LOMA IMM, T ;LOAD ADDRESS OF TYPE FIELD 
MICPC=MICPC+1 
(MOVE! LOMAR! IMM! <T8377>> 
MEMINC IMM. 2 ; LOAD NAK TYPE 
MICPC=MICPCH1 
<MOVE ! WRMEM! INCMAR! IMM! <2>> 
MEMINC IMM, 303 ;LOAD REP RESPONSE SUB-TYPE 
MICPC=MICPC41 
<MOVE ! WRMEM! INCMAR! IMM! <303>> 
§ Ss ;SEND AN UNNUMB MSG 


ALWA 
ee ce 1 
< JUMP! ALCOND ! < SNAK-INIT&3000#4> ! <SNAK-INIT&77772> > 


S$ ;IF START MODE ACCEPT STACK 
MICPC=MICPC+1 
< JUMP ! BRYCON! <S$-INIT&3000#4> ! <S$-INIT8&77772> > 
ALWAYS IOLE ; IGNORE STACK 
MICPC=MICPC+1 
<JUNP P! ALCOND! < IDLE- ~INTT&3OO0#4> # < 1DLE- -INIT&77772>> 
BRWR I 327 MASK TO CLEAR START 
MICP CoM ICPC 
<MOV OETA TEBR! IMM! <327>> 
SP NDB, SP10 :CLEAR START MODE 
MICPC=MICPC+1 
<MOVE ! SPX! BR! AANDB! SP10> 
ALWAYS SN BACK ;RESET TIMER AND IDLE 
NICPCEMICPC+ I 


< JUMP! ALCOND! < SNDACK-INIT&3000#4> ! <SNDACK-INIT8&7772>> 
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1684 021332 ICBA23: 
1686 021332 sp 1BUS, IOBA2, SPO :GET HIGH BYTE 
(1) 001404 MICPC=MICPC+1 
(1) 02133¢ 023160 <MOVE ! SPX! TBUS! IOBA2! SPO> 
1687 1334 OUTPUT DP, <INCA!OBA2> ; INCREMENT IT 
(1) 921334 Desde? Cite TTLS hoes secasniee 
1688 951332 C 10$ ;OVERFLOW - INCREMENT MXT BITS 
(1) 001406 MICPC=MICPC+1 
(1) 021336 115010 < JUMP! CCOND! < LOS-INIT&3000#4> ! < 10$-INIT&77772>> 
1689 021340 ALWAYS RK 
(1) 001407 MICPC=MICPC+ 
(1) 021340 104661 MECH TAL COND! <RK3- INIT&3000#4> ! <RK3-INIT8&777/2> > 
1639 02134 10$: 
16 13 Sp IBUS, UBBR, SPO 
(1) 001410 MICPC=MICPC+1 
(1) Oe21342 123220 <MOVE ! SPX! IBUS! UBBR! SPO> 
16932 021344 BRWRTE MM, 115 
(1) 001411 micrestl Pct] 
(1) 021344 900515 .MOVE !WRTEBR! IMM! <115>> 
169% 021346 SP BR. AANDB, SPO 
(1) gelg4® peazed Maeve re 7 2 ES 
1648 851328 BRWRTE IMM,4 
(1) 001413 MICPC=MICPCS1 
(1) 021350 o00404 CMOVE! WRTEBR’ IMM? <> > 
1696 0213 Ba <AOD! OBR> 
(1) go14i4 ite mIcre 
(1) 021352 1011 UTX? BR! “ADD! OBR> > 
1697 021354 AL WAY S RK3 
(1) 001415 nICPC=MICPC +1 
(1) 021354 104661 < JUMP ! ALCOND! <RK3-INIT&3000#4> ! <RK3-INIT8&777/2>> 
1702 021356 NAK: LDMA IMM, NOATR ;CUMMULATIVE NAK COUNTER 
(1) 001416 HICPC=MICPCH1 
(1) 021356 010011 <MOV VETLOMAR! IMM! <NDATR&377> > 
1703 021360 SP MEMX, SELB, SPO ;READ IT 
(1) 001417 MICPC=MICPC+1 
(1) 021360 043220 <MOVE ! SPX2NEMX! SELB! SPO? 
1704 021362 M INCA! SPO ; INCREMENT THE COUNTER 
(1) 001420 MICPC=MIC Ce + 
(1) 021362 O42460 “MOVE ! WRMEM MEMEMX2 < INCA! SPO> > 
1705 021364 BRM RTE BR, SELA!SP1 ;GETLASTMESSAGE ACKED 
(1) 001421 MICPC=MICPC+1 
(1) 021364 060617 (MOVE! WRTEBR! BR! <SELA!SP17>> 
1706 021366 SP LB,SPle ;COPY TO CURRENT NUMBER 
(1) 001422 MICPC=MICPE+ 
(1) 021366 063232 <MOVE 1 SPX? BR? SELB! SP12> 
1707 021370 sania BRURT ;WRITE NUMBERED MSG PENDING 
(1) 021370 tera <MOVE ! Cs 
1708 ;AND LINE HAS GONE IDLE 
1708 021372 NAK1: LDMA IMM, STC !ADDRESS START OF XMIT CHAIN 
(1) 001424 RICPC=MICP Pc4] 
(1) 021372 010067 (MOVE! LOMAR! IMM! <STC8&377>> 
i710 021374 SP MEMX?LOMAR, SELB, SP16 ;COPY START OF CHAIN TO LAST XMIT 
(1) 001425 MICPC=MICPC+1 
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.MAC 14-DEC-77 15:07 REP HANDLER SEQ 0210 
921374 74 053236 SHOVE! SP NET Loe! SELB! SP16) 
1 SP SP10 ;SET IT IN LINE STATUS WORD 
001426 MICPC=MICP Ay +1 
021376 063310 «MOVE! SPX! BR! AORB! SP10> 
14 Sp IMM, 374, SP14 ;RESET TIMER COUNT 
001427 MICPC=MICPC41 
9 14 003374 cM VE!SPX! tit 3742 SP1M> 
001430 MICPC=MICPC+1 
021402 113713 CJUMPLBRZCON! <TEOM1- -INIT&3000%4> ! < TEOM1-INIT8&777/2> > 
soos 0014 ae hee 
= 
1404 pade2o CHOVE! Pont nem: seve» 
021406 BRO Il 
001432 MICPC= MICPC+1 
021406 102051 CJUMPLBRGCONE ¢T1-INITB3OOO*4) # <11-1NIT8777/2> 
021410 ALWAYS OM. 
001433 MICPC=MICPC+ 1 
021410 110716 < JUMP! ALCOND! < TEOM3- INIT&3000#4> ! < TEOM3-INIT&77772>> 
021412 INWATI1: BRWRTE IMM, 200 ;MASK FOR RDYI 
001434 MICPC=MICPC41 
021412 000600 CMOVE !WRTEBR! IMM? < 200) > 
021414 SP IBUS, INCON, SPO ;READ INPUT CONTROL CSR 
001435 MICPC=MICPC+1 
021414 123000 <MOVE ! SPX? IBUS? INCON: SPO? 
021416 RORB! 0 INCON ;SET RDYI 
001436 ey ep hal 
021416 061300 <MO X?BR! <AORB! OINCON> > 
021420 PSTATE WAT :CHANGE STATE TO WAIT FOR IEI OR ROQI 
021420 MEM ihn We CIEIWAT-INIT8777/2> 
001437 nIcPes CPC ! 
021420 O0es0e (MOVE! WRMEM! IMM! << IEIWAT-INIT&77772> >> 
O2l42e ALWAYS IDLE 
001440 MICPC=MICPC+1 
o21422 100447 < JUMP! ALCOND! < IDLE-INIT&3000#4> ! < IDLE-INIT8777/2>> 


EOL 


DDCGAH. MAC 14-DEC-77 15:07 REP HANDLER 
1732 :FUGITIVE RECEIVE ROUTINES---DON’T FIT IN PAGE 
1733 021424 RH1: <INCA!SPIS> ;LD MAR WITH ADDR OF BA 
(1) 001441 MICPC=MICPC+1 
(1) 021424 670075 <MOVE ! LOMAR! BR! <INCA!SP1S>> 
1734 021426 BRWRTE BR, SELA!SP1 ;READ STATUS BYTE 
(1) 001442 MICPC=MICPC+1 
(1) 021426 060601 (MOVE! WRTEBR! BR! <SELA!SP1>> 
1735 02143) BRI RHY :NO BUFF ASSIGNED IN MAINT MODE 
(1) 001443 MICPC=MICPC+1 
(1) 021430 116455 JUMP 2 BRICON? <RH-INTT&SOO0*4> ! <RH4-INIT8777 72> 
1736 021432 BRWRTE IMM! INCMAR, 77 
(1) 001444 MICPC=MICPC+1 
(1) O21432 014477 (MOVE! WRTEBR! IMM! INCMAR! <77>> 
1737 021434 SP BR, AANDB, SPS 
(1) 001445 MICPC=MICPC+1 
(1) 021434 063265 <MOVE ! SPX! BR! AANDB! SPS> 
1738 021436 BR! INCMAR, SELB, SPO ;SAVE BYTE COUNT MASK 
(1) 001446 MIC sHICP CSI 
(1) 021436 077220 <MOVE ! SPX! BR! INCMAR! SELB! SPO> 
1739 021440 BRWRTE MX!INCMAR,AANDB'SPO ;GET HIGH BYTE COUNT BITS 
(1) 001447 MICPC=MICPC+1 
(1) O2144O0 OS54660 «MOVE! WRTEBR! MEMX! INCMAR! <AANDE! SPO> > 
1740 Oel144e CMP ;COMPARE HIGH ORDER BITS OF COUNT 
(1) 0014S0 MICPC=MICPC+1 
(1) O21442 060365 <SUBTC! BR! SPS> 
1741 021444 2 RCLOW ;IF EQUAL COMPARE LOW ORDER BITS OF COUNT 
(1) 001451 MICPC=MICPC+1 
(1) O21444 115461 < JUMP! ZCOND ! <RCLOW-INIT&3000%#4> ! <RCLOW-INIT&77772>> 
1742 021446 RH6: c RCFATL ;IF CARRY--TOO BIG ERROR 
(1) 0014S2 MICPC=MICPC+1 
(1) oO21446 115063 < JUMP? CCOND ! <RCFATL-INIT&3000%4> ! <RCFATL-INIT&77772> > 
1743 021450 RH2: BRWRTE IBUS, IOBAl ;READ LOW BYTE OF IN BA 
(1) 0014S3 MICPC=MICPC+1 
(1) O214SO0 O20S40 (MOVE ! WRTEBR! IBUS! <IOBA1>> 
1744 021452 BRO RCVODD ;IF SET IS ODD TRANSFER 
(1) 001454 MICPC=MICPC+1 
(1) Oe214S2 116657 < JUMP? BROCON! <RCVODD-INIT&3000%4> ! <RCVODD-INIT877772> > 
1745S 021454 RHY: STATE RCVKEO 
(1) 0014S5 MICPC=MICPC+1 
(1) 021454 000676 <MOVE !WRTEBR! IMM! <RCVKEO-INIT8&77772>> 
1746 021456 ALWAYS REXIT 
(1) 001456 MICPC=MICPC+1 
(1) O214S6 104425 < JUMP! ALCOND! <REXIT-INIT&3000#4> ! <REXIT-INIT8&777/2> > 
1747 021460 RCVODD: STATE RCVKOL 
(1) 001457 MICPC=MICPC+1 
(1) 021460 O00620 <MOVE !WRTEBR! IMM! <RCVKOL-INIT8&77772>> 
1748 021462 ALWAYS REXIT 
(1) 001460 MICPC=MICPC+1 
$43 021462 104425 < JUMP! ALCOND! <REXIT-INIT83000#4> ! <REXIT-INIT&777/2>> 
1750 021464 RCLOW: CMP MEMX, SP4 ;COMPARE LOW ORDER BITS OF COUNT 
(1) 001461 MICPC=MICPC+] 
(13) 021464 040364 <SUBTC! MEMX! SP4> 
1751 Oel466 ALWAYS RH6 
(1) 001462 MICPC=MICPC+1 
(1) O21466 114452 < JUMP! ALCOND! <RH6-INIT&3000#4> ! <RH6-INIT&7772> > 
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DDCGAH. MAC 14-DEC-77 15:07 REP HANDLER SEQ Oele 
1752 021470 RCFATL: Lona IMM, T 
(1) 001463 MICPC=MICPC41 
(1) 021470 010151 <MOVE !LOMAR! IMM! <T8377>> 
1753 021472 MEMINC 
(1) 001464 MICPC=MICPCHI1 
(1) Oe21472 O16402 CHOVE! WRMEM! TNCMAR! IMM! <2) > 
1754 021474 MEM MM, 311 
(1) 001465 MICPC=MICPC41 
(1) 1474 092711 «(MOVE ! WRMEM! IMM!<311>> 
1755 021476 LOM IMM. « <RTHRS+1>> ;ADDRESS ERROR LINK 
(1) 001466 Riceosmicecti 
(1) 021476 010175 <MOVE !LOMAR! IMM! <<RTHRS+1>8377>> 
1756 021500 MEMINC 1BUS IOBAL 
(1) 001467 MICPC=MIC Post 
(1) 021500 036540 «MOVE ! WR NCMAR! IBUS! <IOBA1>> 
1757 021502 MEMINC I US 10BA2 
(1) 001470 MICPC=NICP c+i 
(1) O21502 036560 tWRMEM! INCMAR! IBUS! < IOBA2> > 
1758 021504 BRU RUN E IMM.20 
(1) 001471 MICPC=MICPCS 1 
(1) 021504 o004e20 <MOVE ! WRTEBR! IMM! <20>> 
1789 021506 were RCEXY: Rice 
¢ 
(1) Oe21506 O16400 oC 
1760 021510 ELB 
(1) 001473 Tecan fC 
(1) 021510 O62620 CMOVE tWRMEM! BR? <SELB> > 
1761 021512 RCEXX: OUTPUT IMM, <200!0RCVCO> ;FLUSH INPUT SILO 
(1) 001474 MICPC=MICPC41 
(1) 021512 O02212 HOV 'WROUT ! IMM! <200! ORCVCO> > 
1762 621514 TSTATE TM NT AG 
(1) 001475 MICPC=MICPC+1 
(1) 021514 O00404 <MOVE ! WRTEBR? IMM! < THTAG- -INIT877772>> 
(1) 001476 MICPC=MICPC+1 
(1) 021516 063222 <MOVE ! SPX! BR! SELB! SPe> 
1763 021520 SP MM, 1,SP1 ;SET INIT MODE IN PORT STATUS WORD 
(1) 001477 MICPC=M 1¢Pcti 
(1) 021520 003001 MOVE 2SPX? IMM! 1 'SP1> 
1764 021522 ALWAYS NTRS1 
(1) 001500 MICPC=MICPC+1 
she 021522 114642 O TUMP AL COND! <NTRS1- -INIT&3000%4> ! <NTRS1-INIT&77772>> 
1766 , .SBTTL START HANDLER 
1767 021524 START: BRWRTE DP, <SELA!SP10> ;READ LINE STATUS WORD 
(1) 001501 MICPC=MICPC+1 
(1) 021524 060610 <MOVE !WRTEBR! DP! <SELA!SP10>> 
1768 021526 BRSHF T ;GET START MODE BIT IN POSITION 
(1) 001502 MICPC=MICPC+ 
(1) 021526 001620 MOVE SHE TOR! WRTEBR! SELB? 
1769 021530 BRY 10$ ;IF IN START MODE SET STACK 
(1) 001503 MICPC=MICPC+ 
(1) 021530 117106 CTP? BRYCONE <10$-INIT&3000%*4> ! <10$-INIT8777/2>> 
1770 ;ELSE SET UP START ERROR 
1771 021532 BRWRTE _IMM, 200 
(1) 001504 MICPC=MICPCH1 
(1) 021532 900600 <MOVE !WRTEBR! IMM! <200>> 
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DDCGAH. MAC 14-DEC-77 15:07 START HANDLER SEQ 0213 
1772 021534 ALWAYS RCVYM2 
(1) 001505 MICPC=MICPC+1 
(1) O21534 104746 < JUMP! ALCOND! <RCVM2-INIT&3000#4> ! <RCVM2-INIT&777 72> > 
1773 021536 10$: Lone :SET UP ADDR OF TYPE FIELD 
(1) 001506 MICPC=mICPC41 
(1) 021536 010151 <MOVE !LDMAR! IMM! <T8&377>> 
1774 021540 MEMINC iran ? ;WRITE STACK TYPE 
(1) 001507 MICPC=MICPCH1 
(1) O2154O 016407 «MOVE! WRMEM! INCMAR! IMM!<7>> 
1775 O21S42 BRURTE ;SEND THE UNNUMB MESS 
(1) 001510 MICPC=MICPC4i 
(1) Oe21s4e o00411 «MOVE! WRTEBR! IMM!<11>> 
1776 021544 ALWAYS SAe2 
(1) 001511 MICPC=MICPC+1 
(1) 021544 110726 < JUMP! ALCOND! <SA2-INIT&3000#4> ! <SA2-INIT877772>> 
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START HANDLER SEQ 0214 
ee Ae ys SUB! SP17 ; COMPARE RESPONSE TO MSG NO 
MICPC=MICPC+ 


«MOVE! WRTEBR! MEMX! <SUB!SP17>> 
BR? . REG ; IF NEGATIVE EXIT 
MICPC=MICPC+1 


< JUMP ! BR7CON? <RH3- INI T&3000#4> ! <RH3-INIT877772>> 
LOMA 8 SELA! SPO ;ADDRESS THE TRANSMITLINK 


MICPC=MICPC41 
«MOVE! LDMAR! BR! <SELA!SPO>> 
HEN inn 0 
m CPC=NI PCti 
MOVE !WRMEM! IMM! <0>> 
LOM A IMM, ST 
MICPC=MICPC41 
cme VE!LOMAR! IMM! <STC8&377>> 
IMM, TML1 
nicecs =MICPC+ 
MEM! IMM! <TML1>> 
R é IMM, TMLS ; WRAPAROUND? 


Wd 

MICPC=MICPC4+1 

<MOVE !WRTEBR! IMM! <TML&>> 
BR, SPO 


CMP 
MICPC=MICPC41 


; TURN OF ASSIGNEDAND TMTED BITS IN FLAG 


; ASSUME WRAPAROUND 


<SUBTC! BR! SPO> 
SrcpcemrcPee1 — 
MONG? SEOND! ¢ TOONY-INIT&3000%4> ! < TDONY-INIT877772> > 
BRWRTE IMM.6 ; OFFSET FOR NEXT TMT LINK 
MICPC=M MICPC41 

MOVE! WRTEBR! IMM! <6>> 
MEM BR ADD! SPO ; UPDATE THE POINTER 
hove? 0 9, 
LOMA IMM. NXTSP ; ADDRESS DONE LINK 
M 


MICPC 1 
<HOVE !LOMBR gti? NAT SR eas”? 
DMA 


L ELB! SPX! 
MICPC=M IC mes 
<MOVE! LOMAR! MEMX! <SELB!SPX!SP2> > 


;ADDRESS THE LINK,COPYING 


a BOO RES? TQ SP 


MEMINC _ IMM, 200 WRITE INTERRUPT TYPE 
MiSy PUAREN? Enonags rem «20>» 
BR. INCA! SPO COPY ACTUAL LINK ADDRESS 


a 
MICPC=MICP *° 
CS SY? Lc Sree aa? 
IMM, NXTSP 


LDMA 
MICPC=MICPC41 

SHOVE TL DMAR! IMM! <NXTSP8377>> 
MEM IMM. INTSTK ;ASSUME WRAP AROUND 
MICPC=MICPC41 

CHOVETURMEN! IMM! CINTSTK> > 
BRWRTE IMM. <<MMEND-2>> ;ADDRESS ENDOFINT STACK 
MICPC=MICPC41 

<MOVE !WRTEBR! IMM! <<MMEND-2> >> 

CMP BR, SP3 ; WRAPAROUND? 


;ADDRESS PTR INT STACK 
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MICPC 
T 


ow 


—~ Ome Ore 


35 


c! 
DON4O ; YES---BRANCH 


TDON4O- INI T&3000#4> ! < TOONYO-INIT&877772>> 
; OFFSET TO NEXT PAIR 


Uv 
oO 


MM!<2>> 
SP3 ; UPDATE POINTER 


tI 

D! 

R! <ADD! SP3>> 
0 ;WRITE INTERUPT PENDING 
| 

R 


;IN PORT STATUS WORD 


Lone — ISP17 ;GET LAST ACKED 
(MOVE! LOMAR! IMM! <ISP178377>> 
ME SP 


SP 
MICPC=MICE c+ . 
MOVE! SPX! MEMX! SELB! SP17> 
MM, STC 


COMA 
MICPC=MICP Pct] 

OVE!LOMAR! IMM! <S1C8377 22 
Lone x, SELB! SPBRX! SPO 
m CPC=MIC Ce * 


exe one MONCHAR SELB 


BRi wei AR, SEL 
SREP COMI 


MOVE ! WATES R!MEMX! INCMAR! <SELB> > 
SRI “ HR BON 4"* ; IF BUFFER ASSIGNED PROCEED 
MICPC=MICPC+1 


SFE LO aes © een ais recmann> Fe TaPEy His eee 


ALW SE---EXIT 
MICPC=MICPC+1 
CJUMP? ALCOND! <RH3- INI T&3000#4> ! <RH3-INIT&77772>> 


;STORE IT IN SP17 
;GET START OF TMT CHAIN 
;ADDRESS THE LINK 


;GET THE FLAGS 


: BRWRTE _IMM,4 ;ADD TO MXT BITS 
MICPC=MICPC41 

CMOVE!WRTEBR! IMM! <4> > 

SP BR, ADD, SPO 

MICPC=MICPC+1 

cMOVE SPX? BR! ADD! SPO> 

ALWAYS TH3X 

MICPC=MICPC+1 

< JUMP! ALCOND! < TH3X-INIT&3000%4> ! < TH3X-INIT877772> > 
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.MAC 14-DEC-77 15:07 START HANDLER 
; INPUTS: 
: SPO = RECEIVE CHARACTER 

621652 PASWRD: SP IBUS, LNOSW,SP13 ;READ PASSWD SWITCH 
001554 MICPC=MICPC+1 

021652 023333 <MOVE ! SPX! TBUS!LNOSW! SP13> 

021654 2 10$ ;IF ALL ONES NO RLD ENABLED 
001555 MICPC=MICPC+1 

021654 115561 < JUMP! ZCOND! < 10$-INIT&3000%4> ! < 10$-INIT&77772> > 

021656 BRWRTE IMM.6 ;CHECK FOR ENTER MOP MODE 
001556 MICPC=MICPC4H1 

021656 000406 (MOVE !WRTEBR! IMM! <6>> 

021660 CMP BR, SPO 
001557 MICPC=MICPC+1 

021660 060360 <SUBTC! BR! SPO> 

021662 2 20S ;IF EQUAL===ENTER MOP 
001560 MICPCaMIChCt 

O21662 115566 < JUMP! ZCOND! <20$-INIT&3000%4> ! <20$-INIT&77772>> 

021664 10$: BRWRTE BR, SELA!SP1 ;READ STATUS BYTE 
001561 MICPC=MICPC+1 

021664 060601 (MOVE !WRTEBR! BR! <SELA!SP1>> 

021666 BR1 RHX ;MESSAGE WITH NO BUFFER ASSIGNED 
001562 MICPC=MICPC+1 

021666 106753 < JUMP? BRICON! <RHX-INIT&3000%4> ! <RHX-INIT&77772> > 

021670 BRWRTE BR, AA!ISPL 
001563 MICPC=MICPC+1 

021670 060521 (MOVE !WRTEBR! BR! <AA!SP1>> 

021672 BRY RCVMO ;DLE RECEIVED IN NORMAL MODE 
001564 mICPC=MICPC 41 

021672 10734S < JUMP! BRYCON! <RCVMO-INIT&3000#4> ! <RCVMO-INIT&77772> > 

021674 ALWAYS RK3 ;HANDLE MAINT MODE MESSAGE 
001565 MICPC=MICPC+1 

021674 104661 < JUMP! ALCOND! <RK3-INIT&3000#4> ! <RK3-INIT&77772>> 

021676 208: SP BR, DECA, SPY ;COUNT FOR NUMB OF COMPARES 
001566 MICPC=MICPC+1 

021676 063164 <MOVE ! SPX! BR! DECA! SP4> 

021700 STAT 
001567 MICPC=MICPC+1 

021700 000750 (MOVE ! WRTEBR! IMM! <EM2-INIT&777/72>> 

021702 ALWAYS REXIT 
001570 MICPC=MICPC+1 

021702 104425 < JUMP! ALCOND! <REXIT-INIT&3000%4> ! <REXIT-INIT&777/2> > 

.ENABL LSB 
021704 RCVM1: LOMA IMM, NAKST ;RESET NAKS SENT 
MICPC=MICPC41 
021704 «MOVE! LOMAR! IMM! <NAKST8&377> > 
021706 MM "Te 


71 
01 
MEM 
72 MICPC=MICPC41 
Ol <MOVE !WRMEM! IMM!<1>> 
LOMA MM ;ADDRESS ORIGINAL RECV BYTE COUNT 
73 MICPC=MICPC41 
67 <MOVE! LOMAR! IMM! <BC&377>> 
SP MEMX! INCMAR, SELB, SPY ;MOVE BYTE COUNT TO SPY 


PAGE: 0217DM 
DOCGAH. MAC 14-DEC-77 15:07 START HANDLER SEQ 0217 
(1) 001574 MICPC=MICPC+1 
(1) O21712 057224 <MOVE ! SPXEMEMNX? INCHAR! SELB! SP4> 
1841 9021714 SP MENX ' INCMAR, SELB, SPS ;AND SPS 
(1) 001575 MICPC=MICPC+1 
(1) 021714 057225 <MOVE ! SPX! MEMX! INCMAR! SELB! SPS> 
1842 021716 MEM BR DECA! SP11 ;COPY SP11 TO MEMORY 
(1) 001576 MICPC=MICP 
(1) 021716 062571 <MOVE! WAMEM! GR! <DECA!SP1L. 
1843 021720 LOMA IMM. NXTSP 
(1) 001577 RICPC=MICP PC41 
(1) 021720 010241 <HOVE! LOMAR! IMM! <NXTSP8377> > 
1844 021722 SP LOMAR, SELB, SP3 ;COPY TO SP3 
(1) 001600 MICPC=MIC Cai 
(1) 021722 053223 (MOVE ! SPX! MEMX! LOMAR! SELB! SP3> 
184S 021724 MEMINC TMM 204 ;RECEIVE DONE IMAGE 
(1) 001601 MICPC=MICPC41 
(1) 021724 O16604 nen BRILOMER SEL RISD. 
1846 021726 'LOMAR, SELA!SP1S ;COPY LINK ADDRESS TO NEXT INTER 
(1) 001602 MICPC=MICPC+1 
(1) 021726 072615 <MOVE tWRMEM! BR!LDMAR! <SELA!SP1S> > 
1847 021730 MEMINC ;ZERO THE FLAGS 
(1) 001603 MICPC=M mropcdt 
(1) 021730 016400 «MOVE! WRMEM! INCMAR! IMM! <O>> 
1848 021732 SP IMM! TNCMAR, SPO, 300 ;WRITE A 300 TO SPO 
(1) 001604 MICPC=MICPC+1 
(1) 021732 017300 <MOVE ! SPX! IMM! INCMAR! SPO! 300> 
1849 021734 BRWRTE IMM! INCMAR,2 ;PREPARE TO ADDRESS NEXT 
(1) 001605 MICPC=MICPC+1 
(1) 021734 O14402 <MOVE! WRTEBR! IMM! INCMAR! <2>> 
1850 j INTERRUPT STACK AND INCREMENT 
i852 021736 MEM MEMX, AANDB! SPO :MASK OFF ORIGINAL HIGH BYTE 
(1) 001606 MICPC=MICPC+1 
(1) 021736 042660 (MOVE ! WRMEM! MEMX! <AANDB! SPO> > 
1853 ;OF COUNT SAVING EXTENDED MEM BITS 
1854 021740 MEMINC MEMX,AORB!SPS :COPY TO MEMORY LINK 
(1) 001607 MICPC=MICPC+1 
(1) 021740 056705 <MOVE 2 WRNEN? INCMAR? MEMX! <AORB! SPS? > 
1855 021742 MEMINC BR,SELA!SP4 
(1) 001610 MECPCSMICPOs I 
(1) Oe21742 076604 <MOVE ! WRHEM! INCMAR! BR! <SELA! SP4> > 
1856 021744 LDMA IMM, NXTSP ;ADDRESS NEXT INT STACK 
(1) 001611 MICPC= entered 
(1) 021744 010241 <MOVE! LOMAR! IMM! <NXTSP&377> > 
1857 021746 MEM BR, ADD! SP 
(1) 001612 MICPC=MICPC+1 
(1) 021746 O62403 HOVE ZHRMER? BR? ADD! SPO> 
1858 021750 IMM. <<MMEND-2> > ;ADDRESSEND OF INT STACK 
(1) 001613 eeepc emTercd | 
(1) 021750 000776 <MOVE !WRTEBR! IMM! <<MMEND-2>>> 
1859 021752 CMP BR, SP3 ;WRAP AROUND 
(1) 001614 MICPC=MICPC+1 
(1) 021752 060363 <SUBTC! BR! SP3> 
1860 021754 2 4O$ ;IF YES-- BRANCH 
(1) 001615 MICPC=MICPC+1 
(1) 021754 115626 < JUMP! ZCOND! <4OS-INIT&3000#4> ! <4O$-INIT&777/72>> 


= ~ i — — — — — = ~ - i — — ~ 
-~00--0--0--0--0-~-00--0--0--0--0--0--0--0--0--O--@--@o-- 


~ 
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LOL 


PAGE: 05490"! 
SEG 


.MAC 14-DEC-77 15:07 START HANDLER 518 
021756 208: 
021756 BRWRTE IMM,RCL7 
001616 MICPC=MICPC41 
021756 000462 <MOVE !WRTEBR? IMM! <RCL7> > 
176 CMP P1S 
001617 MICPC=MICPC+1 
021760 060375 <SUBTC! BR! SF15> 
— MICP PC+1 
021762 904s YB? DAOND! {SOS-INIT&3000"4> ! <SOS-INIT&777/2>> 
021764 BRWRTE 
001621 MICPC=MICPC41 
021764 OO00405 «MOVE! WRTEBR! IMM! <S>> 
021766 30S: SP BR.ADD, SP15 
1622 MICPC=M cece 
021766 3015 (MOVE! SPX! BRI ADD! SP1S> 
02177) BRWRTE IMM, 20 ;MASK FOR INTERUPT PENDING 
001623 MICPC=MICPC41 
021770 o00420 <MOVE ! WRT BRE tec 20>» 
021772 SP Pi ;UPDATE PORT STATUS WORD 
001624 MICPC=MI Pest 
021772 063301 <MOVE ! SPX! 2) TE 
021774 ALWA YS mrebes SH 
001625 MICPC=M ICPC+1 
021774 104415 < JUMP! ALGOND! <FLUSH-INIT&3000%#4> ! <FLUSH-INIT&77772> > 
021776 40S: MEM Inn t INTSTK :POINT TO START OF INTERRUPT STACK 
001626 nIcecs P 
021776 OGO264e ETORRER! free caNTSTK> 
022000 Al unY $ 20S 
001627 MIGpC=MICPC1 
022000 114616 < JUMP! ALCOND! <20$-INIT&3000%4> ! <20$-INIT&77772>> 
022002 SOS: BRWRTE IMM. <<RCLI-RCL7>&377> | ;POINT TO START OF QUEUE 
001630 MICPC= MICP PC+1 
O22002 000742 MOVE ! WR ! IMM! <<RCL1-RCL7>8377> > 
022004 aL WAYS 3 
001631 mICe =MICPC+1 
022004 114622 JU 'ALCOND! <30$-INIT&3000%4> ! <30$-INIT&777/2>> 
022006 NTHRES: MM 
001632 RIcPCenIceC pct] 
o22006 010152 HOVE TL OMAR! IMM! <ST&377>> 
022010 oe POR MEN SELB, SPO 
001633 HICPC=MIC c+ 
022010 043620 MOVE ! SPBRX? NEMX? SELB! SPO? 
022012 BRWR TE BR ADD! SPO ;SHIFT LEFT 
01634 RIcC=MrEPts 
022012 0400 <MOVE EBRIBR! <ADD! SPO> > 
022014 BRY OVRRUN 
001635 MICPC=MICPC+1 
022014 103367 JUMP: BRICON# <OVRRUN-INIT83000#4> ! <OVRRUN-INIT3&77772> > 
022016 BRWRTE rant yi 
001636 MICPC=MI cecit 
022016 O00401 «MOVE! WRTEBR! IMM! <1>> 
022020 ERRXX: 
022020 NTRSO: LDMA IMM, <<RTHRS+3> > 


001637 MICPC=MICPC41 
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MAC 


Oe2020 
Deedee 


Site 
oe 


022032 
022034 


022034 
022036 
022036 
022040 
022040 
O2e04e 


BS80u9 
022044 
022046 


Oe2046 
Oe2e0S0 


O220S0 
O2e0Se 


oe20s4 
Oe2e0S4 
Oee0S6 
022056 
022060 


022060 
Oee0be 


022062 
Oee064 


022064 
Oee0b6 
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010177 


001640 
016400 


001641 
062620 


Bidest 
Be4833 


001644 
016601 


00164S 
002574 


Bibe4i 


1647 
eb4e 


001650 
000776 


901651 
0'30360 


Tise8s 
Bbonae 
2 Beesa0 
001655 


000420 
001656 
063701 


START HANDLER 


NTRS1: 


NTRS2: 


SNAK: 


MO1 


«MOVE! LDOMAR! IMM! < <RTHRS+3>8&377> > 
MEMINC IMM,O 

MICPC=MICPC4+1 

«MOVE ! WRMEM! Ingman! THM! <O> » 


1 IMM! <NXTSP&377>> 
ist MX. SELB! SPX! SPO 
bieeeann ce pa Rewx: ‘SELB! SPx!SPO> 
MEMINC 


SO ereMropchi 
eee MARE IMM! <201>> 


RTT eget ccna? >> 

ieearneseiee 
§ <NXTSP8&377> > 
nc ae int INTSTK ;ASSUME QUEUE WRAP AROUND 
<nOY ‘7 ecm 

WRTE THM <<MMEND-2> > 
STCECEM cpcdi 
<MOVE ! WRT BR [MIM « <HMEND- 2>>> 
nineties 

;IT DID WRAP AROUND 


SIGRBTDER!farnse-anarasooon nese -INIT8277/2)> 


FFSET TO NEXT PAIR 
ASCE TOATEBAL co 


PLSreTIMGEG a <ADD! SPO>> 


ETON 
Pa : F AORB, SPI 

MI 

<MO 


; UPDATE QUEUE POINTER 


R 
RETO eek rs nones se 
;FLAGGED BY ERROR TYPE 


RO 
ath PURE ep -INIT&83000#4> §<TABL-INIT8777/72>> 
nice itr tm! <1SP118377>> 
MEMX, SELB, SP11 
MICPC=MICPC+1h 


fl ’ 'SP11> 
Spee: PBR INCA SPIi> . ; INCREMENT MSG EXPECTED 
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PAGE: O2200Mm 
. MAC 14-DEC-77 15:07 START HANDLER SEQ 0220 

001662 mIcPS =MICPC 
022066 063071 CMOVE! SPX? BR# INCA! SP1L> 
022070 SNAK1: BRWRTE IMM, 1 ;UNNUMB PENING BIT TO BR 

1663 MICPC=MICPC41 

022070 0401 (MOVE! WRTEBR! IMM! <1>> 
022072 SNAKe: SP BP. AORB, SP10 ;UPDATE LINE STATUS WORD 

001664 MICPC=MICPC+1 
022072 063310 <MOVE ! SPX! BR! AORB! SP10> 
022074 ALWAYS FLUSH 

001665 MICPC=MICPC+1 


022074 104415 « JUMP! ALCOND! <FLUSH-INIT&3000#4> ! <FLUSH-INIT8777/72> > 


BO0e 


PAGE: O221DM 
DDCGAH. MAC 14-DEC-77 15:07 START HANDLER SEQ Geel 
1914 022076 EMTRIG: BAWRTE IMM, 24 
(1) 001666 MICPC=MICPC ch 
(1) O22076 o00424 cMOVE! WRT EGR! IMM! <24> > 
1915 O22100 OUTPUT BR, <SELB!OBA1> 
(1) 001667 MICPCoMICP cpé+1 
(1) 022100 O62226 MOVE: SUT!GR! <SELB! OBAL> > 
1916 O2210e BRWRTE IMM.O 
(1) 001670 MICPC=MICPC41 
(1) O22102 000400 (MOVE !WRTEBR! IMM! <O>> 
1917 022104 OUTPUT <SELB! OBA2> 
(1) 001671 MICPC=MICPC+1 
(1) 022104 062227 <MOVE ! WROUT! BR! <SELB! OBR2> > 
1918 O22106 SPBR 1BUS, BM873, SPO ;READ BM873 ADDRESS--- 
(1) 001672 MICPCsM CPC+ + 
(1) 022106 023740 MOVE ! SPBRX! IBUS! BMB73! SPO> 
1919 Oee110 OUTPUT BR, SELB! OUTDAL ;SET UP LOW BYTE OF ADDRESS 
(1) 001673 mICPC=MIChe+1 
(1) 022110 O62222 MOVE LWROUT! BR? BR! (SELB! OUTDAL>> 
1920 O2elle BRUR E ;HIGH BYTE BASE FOR ROM BOOT 
(1) 01674 RIceceMICPCS | 
(1) O22112 000766 <MOVE ! WRTEBR! IMM! <366>> 
1921 022114 EMY: OUTPUT BR, SELB! OUTDA2 ;SET UP HIGH BYTE OF ADDRESS 
(1) 001675 MICPC=MICPC+1 
(1) 022114 062223 <MOVE ! WROU 'BR! <SELB! OUTDA2> > 
1922 022116 EMb: BRURTE MM. 21 ;MASK TO START NPR 
(1) 001676 MICPC=M mrepesi 
(1) 022116 600421 <MOVE! TEBR! IMM! <21>> 
1923 022120 OUT BR, <SELB! ONPR> 
(1) 001677 MICPC=MICPC41 
(1) 022120 0661230 CMOVE ! WROU XiBR? <SELB! ONPR) > 
1924 O22l22 OUT <SELB! OBR> ;START TIMER 
(1) 001700 MICPC=M BRatt 
(1) O22122 061231 <MO TROUTXEBR! <SELB! OBR) > 
1925 022124 CKTIME: BRWRTE IBUS,UBBR ;CHECK TIMER 
(1) 001701 NICPCeMICPCs pc+i 
(1) 022124 120620 EBR! IBUS! <UBBR> > 
1926 Oe2126 BRY HAL TED ;NPR TIMED OUT DO ACLOW 
(1) 001702 MICPC=MICPC+1 
(1) O22126 103355 < JUMP? BRYCON! <HAL TED-INIT&3000#4> ! <HALTED-INIT877772>> 
1927 022130 EM1: BRWRTE IBUS,NPR ;READ NPR CONTROL 
(1) 001703 MICPC=MIC C+ 
(1) 022130 120600 (MOVE ! WRTEBR! IBUS! <NPR> > 
1928 022132 BRO CKTIME 
(1) 001704 MICPC=MICPC St 
(1) 022132 116301 < JUMP! CON! <CKTIME- -INIT&3000*4> ! <CKTIME-INIT8&77772>> 
1929 022134 BRWRTE IBUS, IOBAL ;READ LOW BYTE OF ADDRESS BACK 
(1) 0017 MICPC=MICPC+1 
(1) 022134 O20540 <MOVE !WRTEBR! IBUS! <IOBA1>> 
1930 022136 BR1 EMS ;ADDRESS IS 26-DONE 
(1) 001706 MICPC=MICPC+1 
(1) 022136 116713 <JUMP 1BRICON! CEMS-INIT&3000%4> ! <ENS-INITB777 76> 
1931 022140 TPUT IMM, <26!0BAl1> ;SET UP LOW BYTE OF ADDRESS 
(1) 001707 MICPC=MICPC41 
(1) O22140 o02026 <MOVE !WROUT! IMM! <26!0BA1>> 
i932 O2214e BRWRTE IMM.O :CLEAR BR TO CLEAR LOW BYTE OF 
(13 001710 MICPC=MICPC41 
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000400 
001711 
Obe222 


001712 
114675 


001713 
000757 


001714 
100756 
001715 
023640 
001716 
060400 


001717 
103447 


001720 
0101S4 


001721 
00044e 


001722 
076670 


1723 
6611 


001724 
076615 


001725 
076617 
001726 
000461 
001727 
010210 
001730 
002764 


001731 
003004 


co2. 


START HANDLER 


EMS: 


TABUPD: 


TABI: 


«MOVE !WRTEBR! IMM! <0>> 


OUTPUT BR SELB! OUTDAL 
MICPC=MICPC+1 
(MOVE !WROUT! BR! «SELB! OUTDAI>> 


$0828 Low evte oF DATA 


aL WAYS eM ;GO DO NPR 
mire tpt ONO EMM INI T&3000%4> ! <EM4-INIT8777/2>> 

ADOR Ray ; IF NPR DONE 
MICPC=MICPC+1 

VE! WRTEBR! <RM1-INIT&777/72>> 

WAYS OW 
MICPC=MICPC+1 
“JUMP! ALCOND! <ACLOW-INIT&3000%4> ! <ACLOW-INIT877772>> 
SPBR TBUS, RCVCON, SPO ;READ RECEIVER CONTROL REG 
MICPC=MICPC+] 

ve! x! SERCVCON! SPO? 

'SPoO ;SHIFT LEFT 


RWR 
pat at ERE 
BCE * : ;RECEIVE ACTIVE--IDLE 


;SAVE BITS 1 AND S OF SP10 
: M! INCMAR! BR! <AANDB! SP10> > 


NC SELA!SP11 ;SAVE SP11 
PiSveTOmees| 


+ 
' INCMAR! BR! <SELA!SP11>> 
SELA!SP1S ;SAVE SP1S 


Mt NCHAR! BR! <SELA!SP1S> ? 
I LA!SPi ;SAVE SP17 
PC=nIcPC +1 


NCMAR! BR! <SELA!SP17>> 

-MAR NOW POINTS 
RB ;D0 NOT CHANGE BR UNTIL 
fe 


~ 


2as28 
20023 
aie 
= 
Oo 
ai 


as 
m 


+1 
! IMM! <RB2-INIT&77772>> 
ABST ;POINT TO TABLE UPDATE STATE 


MM! < TABST8&377>> 
IMM, << TBUL-INIT&77772>> 
Hee CPC TL tt ¢<TBUL INIT&77772>>> 
*" IMM. 4, SP4 ;INITIALIZE COUNT 


Sp 
MICPC=MICPCS 
<MOVE! SPX! IMM!4!SP4> 


con 


PENT 
VE 


PC 
VE!LOMAR! 
ORT BU ;NEW PORT STATE ADDRESS 


ASS 2lcazw «2 
2-02-44 
z= = 


; 
41 
'T 

< 


= 
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;NOTE: FIRST 6 RAM LOCATIONS ARE NOT WRITTEN 


PAGE: O2230M 
DDCGAH. MAC 14-DEC-77 15:07 START HANDLER SEQ 0223 
1953 :TO CORE TABLE. 
1954 022206 LDMA IMM, BASE 
(1) 001732 MICPC=MICPC41 
(1) O22206 010017 <MOVE ! LDMAR! IMM! <BASE8&377>> 
1955 Oee210 ALWAYS RBO 
(1) 001732 MICPC=MICPC+1 
(1) Oe2210 104443 < JUMP! ALCONL ! <RBO-INIT&3000#4> ! <RBO-INIT8777 72> > 
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Oeeee4 
O2eeeb 
O2eee6 
022230 
022230 
Oeec3e 
022232 
022234 
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022236 
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022240 
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001734 
000402 


001735 
063004 
001736 
023140 
001737 
062006 


001749 
023160 


001741 
062107 


001742 
101270 


001743 
060601 


001744 
116347 
00174S 
070604 


001746 
117355 


001747 
070604 


001750 
117755 


001751 
OS62ce 


001752 
0S62e3 


001753 
123200 


001754 
104634 


001755 
010210 


START HANDLER 
ECe: 


ECX: 


30$: 


20s: 


BRWRTE ; INCREMENT COUNT /TEST 


IMM! <2>> 
SP4 


ADD! SPY 
IOBAl, SPO ;POINT TO NEXT ADDRESS 


<MOVE ! SPX! IBUS! IOBAL!SPO> 

OUTPUT BR,ADD!OBAL 

MICPC=MICPC+1 

<MOVE ! WROUT ! BR! <ADD! OBA1>> 
IBUS, IOBA2, SPO 


SP , 

MICPC=MICPC+1 

<MOVE ! SPX! TBUS! 1OBA2! SPO> 
AC! OBR2 


ICPC=MICPC+1 
<MOVE ! CAST! das cacs OBAe2> > 


T 

MICP C 

Mai RPECCOND: < TABKNAT- INIT&3000%4> ! < TABMXT-INIT8&777/2> > 
BR, SELAY SPL ;READ PORT STATUS 


M 
«MOVE ! WRT RIBR!<SELA!SP1>> 
BRO “ ES ; INIT MODE, WRITE OUT 200 BYTES 
MICPC=MICPC+1 


(JUMP! BROCOM! (308~INIT83000%4> # (308-1NIT8777/2> 
THERWISE ONLY WRITE OUT ERROR COUNTERS 
BRWRTE BR!LDMAR, SELA! SPY ;READ COUNTER 
MICPC=MICPC+1 
«MOVE! WRTEBR! BR! LOMAR! <SELA! SP4> > 


BRY ;ALL DONE 

isin MICPC+1 

«JU Tey OS. INT TegQooes) f eeao era 

RWRTE BR LOMA , SELA! SPY READ CTR 
MICPC=MI +1 

«MOVE ! WRTE feRTL Dee! <SEL.A! SPY > 

BR7 ;ALL DONE 

JUMP? BRZCON! «20S IT er tal eo INIT&77772>> 

OUTPUT MEMX! INCMAR, SELB! OUTDAL ;STORE COUNTS OF ERRORS 
MICPC=MICPC+ 


1 
«MOVE !WROUT! MEMX! INCMAR! <SELB!QUTDAI> > 
Sy MX! INCMAR, SELB! OUTDA2 


CPC+1 
MOVE ROUT? 'MEMX! INCMAR! <SELB! OUTDA2> > 


MICPC=MICPC+1 
<MOVE 2SPX? BUS! NPR! SPO> 
WAYS RK 
MICPC=MICPC+1 
< JUMP! AL COND < RKB INIT&3000%4> ! <RK8-INIT8777/2>> 


DMA 
MICPC=MICP PCs] 

CHOVEELDNAR! Ih <TABSTE377> > 
PSTATE 13 
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DOCGAH. MAC 14-DEC-77 15:07 START HANDLER ' SEQ 0225 
(1) O22es6 MEM IMM, << 13-INIT877772> > 
(2) 001756 MICPC=MICPC41 
(2) O222e56 ooe4és SOOT URMEMS EMM! <<I9-INIT&777/2) >> 
1980 Oe2c60 RM1: 
1981 Oe2e65 STATE _RCVA 
(1) 001757 MICPC=MICPC+1 
(1) O22260 900400 CMOVE LMRTEBR t IMM! <RCVA- -INIT&77772>> 
1982 Oe226e ALWAYS REXIT 
(1) 001760 MICPC=MICPC4+1 
$3 022262 104425 < JUMP! ALCOND! <REXIT-INIT&3000#4> ! <REXIT-INIT&77772> > 
1984 022264 ACK: BRWRTE BR, AA!SP1O ;READ LINE STATUS SHIFTING LEFT 
(1) 001761 MTCPCEMIGPOS 1 
(1) O22264 060530 (MOVE! WRTEBR! BR! <AA!SP10>> 
1985S Oe2cbb BRY ACK ;IF START RCVD--CLEAR START MODE 
(1) 001762 MICPC=MICPC+1 
(1) 022266 103373 < JUMP! BRYCON! <ACK1-INIT&3000#4> ! <ACK1-INIT&77772>> 
1986 022270 BR? FLUSHA ;IF HALF DUPLEX-SEND AN ACK 
(1) 001763 MICPC=MICPC+1 
(1) 022270 107422 < JUMP! BR7CON! <FLUSHA-INIT&3000%4> ! <FLUSHA-INIT877772)> 
1987 ;IF NOTHING ELSE TO SEND 
1988 022272 ALWAYS mEDbE, 
(1) 001764 MICPC=MICPC+1 
(1) Oe2272 100447 < JUMP! ALGOND! < IDLE-INIT&3000%4> ! < IDLE- “mnt reer" 
1990 022274 CBOOT: BRWRTE IMM. 200 MASK FOR BOOT MODE 
(1) 001765 MICPC=MICPC41 
(1) 022274 000600 <M ROVE! WAYEBR! IHW <200>> 
1991 Oe2276 SP BR, AORB, SP1 ;IN PORT STATUS WORD 
(1) 001766 MICPC=MICPC+ 9 
(1) 022276 063301 «MOVE ! SPX! BR! AORB! SP1> 
1992 022300 BRWRTE IMM, 204 ;MASK FOR OK TOSEND AND LINE IDLE 
(1) 001767 MICPC=MICPCS | 
(1) 022300 O00604 MOVE! WRTEBR! IMM! <204> > 
1993 Oe2302 Se BR. SELB, SPIO ;IN LINE STATUS 
(1) 001770 MICPC=MICPC41 
(1) O22302 063230 «MOV ‘eA pepe 
19984 022304 TSTATE T A 
(1) 001771 MICPCaNI PC+ 
(1) 022304 900400 MOVE ATER! Tem cTHTA- -INIT&777/2>> 
(1) 001772 MICPESMICRC 
(1) 022306 063222 <MOVE ! SPX! BR! SELB! SP2> 
1995 022310 ALWAYS INS12 
(1) 001773 MICPC=MICPC+1 
(1) 022310 100662 < JUMP! ALCOND! < INS12-INIT&3000#4> ! < INS12-INIT&777/2>> 
2004 Oee3le RCVCK: SPBR TBUS, RCVCON, SPO 
(1) 001774 MICPC=MICPC+1 
(1) O22312 23640 <MOVE ! SPBRX! IBUS! RCVCON! SPO> 
2005 022314 BRWRTE BR,ADD!SPO 
(1) 001775 MICPC=MICPC+1 
(1) 022314 O60400 <MOVE ! WRTEBR! BR! <ADD! SPO> > 
2006 022316 BR? Il 
(1) 001776 MICPC=MICPC+1 = 
(1) 022316 103451 < JUMP! BR7CON! <I1-INIT&3000#4> ! <I1-INIT&77772>> 
2007 022320 ALWAYS TAL 
(1) 001777 MICPC=MICPC+1 
(1) 022320 110402 < JUMP! ALCOND! < TAL-INIT&3000#4> !< TAL-INITS7772> > 


DDCGAH. MAC 14-DEC-77 15:07 
2009 000001 


. ABS. O2e2322 000 


ERRORS DETECTED: O 


DDCMP/CRF /0S: CRF+DMCNEW, HI1, ODCGSH 
RUN-TIME: 6 10 O SECONDS 

RUN-TIME RATIO: 77/16=4.6 

CORE USED: 6K (11 PAGES) 


1671 


START HANDLER 
- END 
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CZDMGD.P11 OS-JAN-78 11:08 GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) ; SEQ 0227 
167 
iees 
1675 5s RERRERRRE EERE RRR RRRRRHHEE TEST | RRR RERREE RRR R ERR EEE EERE 
167 : *THIS PECIAL TEST WHICH IS ONLY_EXE NE_TIME, 
1878 tETHE Se TR? Bass ATE F THe Dinh astic 1 CORDED. Pia TYPES’ ON 
ta i EIES 08° SUpronTS. 1 TO NUE A” A FPS our Rong ICH CocAt N 
1680 pee TO A ZERO. 
168) PPPOTETT TTT TT TOCTITICT IC TTT TIT Tit iti ittitiiiiiiiitiitiitiiiir) 
1683 ; TEST 1 
ieee O26382 127% G20008 SIETE TS" GY Maq8TNBc 
1pes , ;R1 CONTAINS BASE OMC11 ADDRESS 
1688 022340 005737 022362 TST ROMNUM ‘FIRST TI ? 
1689 decays 001902 BNE 3% :SKIP IF NOT 
1690 Oee3s46 1044 022364 TYPE, ROMI : TYPE PART NUMBERS 
1691 Oee3Se 012737 177777 O22362 1S: MOV #-1, ROMNUM :SET FLAG TO ONLY TYPE ONCE 
1692 O2e2360 104400 COPE ; 
1693 Oee36e 900 ROMNUM: O 
1694 Gee3e4 5377 055103 ee ROM1: ASCII (3773 183 Se ng SUPPORTS THE FOLLOWING CROM PART NUMBERS: / 
(1) 77 14 305 ‘A ci 370) 725- A9/<15>< 1) 7a3-8 1A9/<15>< 12> 723-632A9/ 
(1) 5 oosois ah 83302 .ASCI 15><1le>7 ee soAae cies <1 3-639 mad A catthacatincalmeniel 
(1) 1S 314 033055 ASCII (18) (12) /23-£36A9/ < 15) (18> /23- 3~637A 
D) BSseue perae7 SEae SPORE Rectt (399) 735 2A9/< Me fOr 7es 3 34 S><12>723-624A9/ 
(1) BS8E75 6 BSfors B3e5e8 Beet (785 c 1357 S626h9 70185 ch ae CoA: «185139 89-6370 
(1) 022735 015 031012 026463 -ASCIT ¢ 12> < 15> /33-E5BA 
CL) 022747 015 031012 026463 a -ASCIZ ¢4B? (48> 753 SBha, 
1638 
eas AVAL S Sonnac Cibdee to" cake i an ON A Me (DMC AiTh 
ie98 HBT TABLE OnTAOL oF BRE an BABU THE CRAM WITH THE DOCH 
1$33 ial 7 AL H et ope if REMOTE LOW? beeB Cobe ” HE STSTUS 
= 
1701 Tagen “ AGH DEFERMGNES WH whieh n MICRO-CODE WILL 
1706 Be LOADED I IN THE KMC. LOOP ON THIS TEST FOR A FEW SECONDS 
ieee ; Been ee ee uununeeeeeeeeceecneeeenneneennnenennunenennse 
1706 ; TEST 2 
17 12737 002 1226 TST2: Mov #2, TSTN 
1369 §555 85 12737 p995e5 Bolsie MOV sT8T TNEXT 
iat? 77 4737 027014 JSR PC, MAPCK iRUECR TOR RICOR LO ee 
t5th pSSo08 8935 7 tBa00d 001366 BIT #BtT1S,STATI BE SURE DAC HAS CRAM 
1713 023019 go1420 BEG es iB mM 
i71s 653515 B03988 012322 MOV ROMMAP., R2 eo: eR INTS ADORE ESS nap 
1716 023020 012711 902000 1S: MOV #B1T10; (R11) SET ROMO 


102 


PAGE: O2escz 


CZDMGD.P11 OS-JAN-78 11:08 GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) SEQ D228 
7 023024 010061 000004 MOV RO,4(R1) ;LOAD CRAM ADDRESS 
g 923030 012261 o00006 MOV (R2)+,6(R1) LOAD WORD TO BE WRITTEN 
9 0623034 052711 O20000 BIS #BIT13, (R1) :WRITE IT! 
023040 005200 INC RO NEXT ADDRESS 
1 Oe304e Oe22700 002000 CMP #2000, RO ; DON —E YET? 
2 3046 001364 BNE 1¢ :BR_IF NO 
3 023050 005011 CLR (R1} :CLEAR SELO 
023052 104400 2$: SCOPE !SCOPE THIS TEST 


Jee} a palate TEST 4 RRMRRRREREEERERERER EKER ERAS 
;* 
j THIS TES READS ns ROM LOFT LON AND COMPARES 
*IT TO_A SOFTWARE DUPLICATE OF THE CROM. THIS TEST 
 ¥ALSO TESTS THE JUMP(I) MICRO-PROCESSOR INSTRUCTION. 


NNNNANNNNNNNNNNGY 


NNNOOOK OOOO 
MK-OWDONOULW 


171 

171 

171 

1720 

172 

172 

172 

1724 

78s 

1727 5 RERERRREE REAR TEST 9 RRR HRRRRERRRE RRR ELE REEL ES 
1728 :eTEST OF BR RIGHT SHIFT 

1729 ;*VERIFY THAT A DEST OF BR RSH C911} OF A MICRO-INSTRUCTION 
1730 i ecenes THE RESULTING BR DATA RIGHT ONCE. 

12a ¢ HME HEHEHE HE EE HE EEE HE REE ER RE EK REE HERR AKER ES 
i233 s TEST @ 

173S 023054 012737 OO0003 OOl2e6 TST3: Mov #3, TSTNO 

1736 O23062 012737 023170 O01216 MOV aTST4, NEXT 

1737 ;R1 CONTAINS aod puss ADDRESS 

1738 023070 1044le MSTCLR :MASTER CLEAR DMC 

1739 O2307e 10441le MSTCLR ies Ter CLEAR DOM tI 

1740 023074 013701 001404 MOV che Rl DMC BASE ADDRESS 

1741 853100 "Ee CLR (R1) 8 EAR A Ay 

1742 31 Ol oS2eSeS MOV #S2eS2e2S,RS :S ART WITH 125 

1743 023106 010561 000004 MOV RS,4(R1) ; PORTH+ 1 

1744 Slle 104414 ROMCLK ;NEXT WO IS INSTRUCTION, ROMCLK FC=S304 
174S 023114 120500 120500 :BR + PORT 

17s Be3146 104414 ROMCLK NEXT WORD + INSTRUCT TON ROMCLK PC=S304 
174 3120 061620 061620 BR at oer’ re” 

1748 Oe23lee eed ROMCLK ; NEXT Is INSTRUCTION, ROMCLK PC=S304 
1749 Bsaist lees O61leeS ; PORTSe 

1750 3126 006005 R RS ;RS = “EXPECTED” 

1751 023130 116104 oo0000S MOVB S(R1),R4 “- 

17S2@ 023134 20504 CMPB RS,RY ‘Bio “BR SHIFT RIGHT ONCE? 

17S3 023136 140i BEQ 1$ ‘BR iy Y¥ 

ieee as3i is 104012 is HLT le BR RIGHT SHIFT ERROR 

17S 023142 O4414 ROMCLK s NEXT wo Is pS TRUST On ROMCLK PC=S304 
1528 023144 beieea 061620 ?BR HOBR, 2 T BR RIGHT AGAIN 

17588 023146 104414 ROMCLK iNEXT WORD’ 12 MONSTRUCTION, ROMCLK PC=5304 
1789 3138 Bel See 0612eS PORTS+B8R 

1760 1 00600 ROR RS :RS = eg 

1761 23154 116104 o00005 MOVB S(R1),R4 0 

1762 023160 120504 CMPB RS,RY iB tp “BR SHIFT RIGHT? 

1 O23l6e 001401 BEQ es :BR IF Y 

1 023164 104Ole HLT le ‘BR RIGHT SHIFT ERROR 

i 023166 104400 es: SCOPE : SCOPE THIS TEST 

1 

1 

1 

1 

i 

1 


JO0e2 
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SEQ 0 





CZDMGD.P11 OS-JAN-78 11:08 CROM READ TESTS EQ 0229 
177 ;#IF THIS TEST FAILS CHECK YOUR CROM PART NUMBERS. 
1274 ; #CZDMG-D SUPPORTS THE FOLLOWING PART NUMBERS: 
7 ; 
1276 !¥DMC1LI-AR | (M8201N-YA) 
177 1% 23-630A9 
1778 1H 23-631A2 
1779 1% 23-632A9 
1780 1% 23-6339 
1781 1H 23-634A9 
1782 }% 23-635A9 
1783 :% 23-63689 
1784 1a 23-637A9 
178S 3% 
1786 ; #ONC11-AL (M8200-YB) 
1787 ti 23-622A9 
1788 1 23-6239 
1789 1% 23-624A9 
1790 1% 3-625A9 
1791 % g3-bebA3 
1792 1% -627A9 
1793 :% 23-628A9 
1794 : # -629A9 
ioe 5 sR ERLE R ELAR EARLE RA RELL KERALA RAL ES 
1732 ; TEST Y 
1799 023170 012737 O00004 o01226 TST4: Mov #4, TSTNO 
1800 023176 018737 023364 001216 MOV #TSTS, NEXT 
1801 O23204 012737 Oe3242 001220 MOV #1$,LOCK 
i803 oe3e12 104412 MSTCLR 1 ONTO PORT e ORESS 
1804 Gesel4 raten 100000 001366 BIT agIT1S, STATI HS fT 6m OR ROM 
rt Oe3ee 935 027014 SR PC, MAPCK i BAEK E3n HI OR LO 
1807 Oeze il CLR (RI) : CLEAR RUN 
1808 ? 012322 MOV ROMMAP , RO *RO POINTS TO SOFTWARE ROM MAP 
1808 ctR R AS CON TAING. ROM 22 BITS O59 IN BITS 11812 
181 014377 023262 1S: BIC #14377, 2S :CLEAR S FIEL $ Be INS RUCTION 
181 7 O23262 1S Re, 2s : BIT 0-7 TO RUCTION 
181 3254 337 Oe3ebe BIS R3,2$ : IT 11812 TO INSTRUCTION 
igie 2s eit eas m N3D pea ok 
1818 4 MOV sBIT10,(R1) :SET ROMO 
181 MOV (RO), RS : PUT ~EXPECTED™ N RS 
1818 02327 MOV &(R15,R4 :PUT “FOUND” IN RY 
1815 be chp R J RY ; COMPARE ROM CONTENTS TO SOFT DUP 
tes) Bs poy RS. rewrs Fa Rom REBUT TEMP 
1823 3310 37 o0l1ese ROR TEMP3 , 
1824 023314 37 001252 ROR TEMP3 
1825 Ge33e0 037 O01¢5¢ ROR TEMP3 
1Be be33 050237 1252 BIS Re, TEMPS ; TEMPS NOW CONTAINS CORRECT ADDRESS 
1828 023332 104401 3S: SCOP! :LOOP TO 1$ IF SWO9=1 
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PAGE: 0230¢2 
.Pll  OS-JAN-78 11:08 CROM READ TESTS SEQ 0230 
023334 005720 TST (RO)+ ;BUMP SOFT POINTER 
023336 O0520e INC Re !BUMP_ROM ADORESS 
023340 Oee70e o00400 CMP #400, R2 11S Re TO MAX YET? 
023344 001336 BNE 1$ !BR_IF_NO 
3346 008 CLR Re tYES, RESET Re TOO 
062703 o04000 ADD #4000, R3 'INC’ TO NEXT PAGE OF ROM 
023354 O2e703 O20000 CMP #20606, R3 !DONE_YET? 
023360 001330 BNE 1 :BR IF NO 
023362 104400 ug: SCOPE ‘SCOPE THIS TEST 
; RHARALRE ARERR AERA KERR RE EE TEST S RHRRRRRRSRARRRAAE RRR ERE R EE 
!#CROM TEST OF J ) NEVER MICRO-PROCESSOR INSTRUCTION. 
: #PERFORM JUMP INSTRUCTION 
!aVERIFY THAT THE NOT OCCUR BY READIN 


; TESTS 
023364 012737 OO0000S o01226 TSTS: fov Ws TSTNO 
023372 012737 023560 O01e16 MOV wTST&, NEXT 
623400 012737 Oe3s4e4 001220 MOV #1$,LO0CK 
;R1 CONTAINS BASE DMC11 ADDRESS 
023406 104412 MSTCLR j MASTER CLEAR DMC11 
023410 032737 100000 001366 BIT s8IT1S,STATI :I1S IT CRAM? 
023416 001057 BNE + :SKIP TEST IF YES 
deseo 004737 027014 = JSR PC, MAPCK :CHECK FOR HI OR LO 
Geae4 737 026660 JSR PC, CLRALL ;CLEAR ALL CONDITIONS 
104414 ROMCLK sNEXT Ss iN TRUCTION, ROMCLK PC=5304 
Ges3e 100400 100400 :START AT =0 
3441 414 ROMCLK NEXT S_INS TION, ROMCLK PC=5304 
3436 43 114377! <400*0> :JUMP TO ROM PC OF 1777 
3440 bos 37 026752 JSR PC, ROMDAT j RS=EXPECTED ROM DATA,RY=ACTUAL ROM DATA 
Desi 205) CMP RS,R4 ‘AR NEW PC CONTENTS CORRECT? 
34 1401 BEQ 23 :BR IF YES 
Oe345e 104006 HLT :ERROR, CROM PC_IS WRONG 
Oesie4 104401 2s: SCOP1 :LooP to 1§ IF SWO9=1 
Gest56 12737 023464 001220 - MOV #3$ , LOCK :NEW SCOP] 
004737 026660 JSR PC, CLRALL 3c EAR ALL CONDITIONS 
104414 ROMCLK NEXT IS INSTRUCTION, ROMCLK PC=5304 
34 190403 100403 :START AT ROM PC=3 
3474 1049414 ROMCLK ‘NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
34 100000!<400*0> ;JUMP TO ROM PC OF : 
3200 737 026752 JSR PC, ROMDAT ; RS-EXPECTE ROM DATA,RY=ACTUAL ROM DATA 
923508 04 RS,RY :ARE NEW PC CONTENTS CORRECT? 
3510 1401 BEQ 4§ :BR IF YE 
Ge le 104006 HLT :ERROR, CROM PC_IS WRONG 
14 i 401 4$: SCOP1 :LooP to 3$ IF SWO9=1 
be3516 12737 023524 001220 fee MOV #S$, LOCK :NEW SCOPI 
023524 004737 O26660 ISR PC, CLRALL ;CLEAR ALL CONDITIONS 
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.Pll OS-JAN-78 11:08 CROM JUMP TESTS SEQ 0231 
pe3530 1o4i44 RONG sNEXT | W RO rds ANSTRUCTION, ROMCLK PC=S304 
4 mis Rone ; NEXT R IS_ INSTRUCTION, ROMCLK PC=5304 

B32 1B Ss TOuie! <400%0> : JUMP He Rod pe Br BSE 
Os3eus BB00Ke 026752 JER PC, ROMDAT ;RS= XPECTED ROM DATA,RY=ACTUAL ROM DATA 

46 Bene CMP RS,RY i ARE NEW ROM PC CONTENTS CORRECT? 
023550 1401 BEQ 6$ :BR 
083226 104006 HLT 6 ERROR, 6 Ron PC steat® WRONG 

4 104401 6S: SCOP1 toe 5 
023556 104400 SCOPE :SCOPE THIS TEs? 


5 LRRERRA ARERR REA RREREREEEH TEST 6 RRR EERERREREREEE RARER EERE 
;#CROM TEST OF JUMP(I) ALWAYS MICRO-PROCESSOR INSTRUCTION. 
;*PERFORM THE JUMP INSTRUCTION 

prenins THE JUMP BY READING THE CONTENTS OF THE NEW ROM PC 

SE SE SE Se A SE ES Ee J a a a a a a aa a 


; TEST 6 
3560 012737 000006 001226 TSTb: Mov #6, TSTNO 
023566 012737 023740 O01e16 MOV #TST7, NEXT 
023574 012737 023620 001220 MOV #1$,LOcK 8 ves tent eek. neonate 
023602 104412 MSTCLR nase R CLEA BRE 14 
G23604 032737 100000 001366 BIT #BITIS, STATI A a ne 
eae 14 niche 027014 ms SR Bath MAPCK ae Est if LO 
Oe2be0 10414 ‘ RONCL K NEXT 7HQRD IS IS INSTRUCTION, ROMCLK PC=5304 
BBS Me cos rse Nain ae pt F haprusryon nonux ressa0 
023634 003776 3776 s INDEX e 
De 3638 0504 CNP Rg RM NEW PC CONTENTS CORRECT? 
14901 EO 2 :BR IF YES 

OS 3e4q 1Oaaor 2s: OOP . ERROR, oS IF subset _— 
Deaeue bi279> 023654 001220 pee Rov #3$, LOCK then s cori 
Oe3654 194M 186 abs Farrah Is JNSTRUCTION, ROMCLK PC=5304 
023660 104414 O56! <4 ox oan ent XT WORD IS INSTRUCTION, ROMCLK PC=5304 

4 Ooi 37 026752 ie ROmMDAT o KPE TED ROM DATA,RY=ACTUAL ROM DATA 

74 65780} ere RS. RY tan CONTENTS CORRECT? 

76 HL7 6 RR on PC IS WRONG 

Oe37be b9279> 023710 oo1220 = Rov = wS$, LOCK then’ s ig,78 IF sudssi 


71 ROMCLK ;NEXT_W STRUCT sen, ROMCLK PC=S304 
BS iBdude 100406 ;S ARTS PRR BC . 
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Pll OS-JAN-78 11:08 CROM JUMP TESTS SEG 5255" 
023714 104414 ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
053746 eas 026752 Soest OOROMDRT : JUNE PecteD ROM DATA,RY=ACTUAL ROM DATA 
3589 Be ises {382 i ORES 
023726 O20S04 CMP RS, RH : ARE NEW ROM PC CONTENTS CORRECT? 
853538 9B4d82 BF g iERaGk FROM PC IS WRONG 
023734 104401 6S: SCOP 1 P to S$ IF SWS9=1 
023736 104400 SCOPE SCOPE THIS TEST 


; RRR E EERE TEST 7 MERE EERE REE REE EERE EE EEE 
j#CROM rest oF JUMP(I) ON C BIT SET eae INSTRUCTION. 
ir ae ao) per FORM THE JUMP INSTRUCTION 
;*V RIFY. THE UMP BY READING THE CONTENTS OF THE NEW ROM PC 
1 HBBBBBHBHHHHHHHHHHBHEHEMHEEEHEHHEHEHBHH HHL EEE at tt 


; TEST 7 
023740 012737 000007 OO1226 TST7: fov #7, TSTNO 
023746 012737 024134 O01e16 MOV #TST10, NEXT 
023754 012737 Oe4000 001220 MOV #1$,L0CK 
;R1 CONTAINS BASE DMC11 ADDRESS 
ether Aga745 100000 001366 air sgIT1S STATI Ege Sane oe 
772 { 3? _s esr i YES 
ee 74 i9 7 027014 - FoR Be. MAPCK t HECK OR LO 
ses . 
hea 004737 026726 ISR PC,SETC ;SET oa Cc BIT T’ 
104414 ROMCLK sNEXT WORD, Is JNSTRUCTION, ROMCLK PC=S304 
100400 1004 0 jst ART 
10 10494145 OMCLK WORD IS INSTRUCTION, ROMCLK PC=5304 
O2e40le 115377 114377! <400#2> re Orr ROM PC OF 177 
4 4 2 ? 026752 R PC, ROMDAT tbs XPECTED ROM DATA,RY=ACTUAL ROM DATA 
CMP RS,RY *ARE NEW PC CONTENTS CORRECT? 
geuges 001401 BEQ 2g ‘BR IF Y 
26 104 HLT 6 + ERROR OM PC IS WRONG 
024030 104401 2s: SCOP1 ‘LOOP to 1§ IF SWO9=1 
012737 o24040 001220 te MOV #3$, LOCK :NEW SCOP1 
004737 026726 JSR PC,SETC ;SET THE C BIT’ 
O24044 104414 ROMCLK NG 1S INSTRUCTION, ROMCLK PC=S304 
Geiss iBesg Apaehy SF boo het 
4414 MCLK i Rex S INSTRUCTION, ROMCLK PC=5304 
024052 101000 100000!<400*2> ;JUMP TO ROM PC oF 
peuoed 047 7 026752 gsr PC, ROMDAT ites XPECTED ROM DATA,RY=ACTUAL ROM DATA 
Debs 857803 CMP RS,RY :ARE NEW PC CONTENTS CORRECT? 
4064 1401 BEQ 4§ ‘BR IF YES 
024066 HLT 6 ERROR CRON, PC. IS WRONG 
407 Loot 4$: SCOPL : LOOP st gpt 3$ IF SWO9=1 
mire 127 024100 001220 nes MOV #5$, LOCK WS 
024100 004737 026726 JSR PC,SETC ;SET THE C BIT’ 


024104 104414 ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
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OS-JAN-78 11:08 


104400 


104 
04401 


0267S2 


000010 
024330 
024174 


100000 
027014 
026744 


026752 


024234 
026744 


026752 


024274 
026744 


001226 
001216 
001220 


001366 


001220 


001220 


CROM JUMP TESTS 


6S: 


TST10: 


1$: 


es: 
38: 


4$: 
S$: 


NOe2 


100406 ;START AT ROM P 
ROMCLK ‘NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
104125! <400#2> :JUMP TO ROM PC O 

I$R PC, ROMDAT j ROSEXPECTED ROM DATA,RY=ACTUAL ROM DATA 
CMP RS,RY tARE NEW ROM PC CONTENTS CORRECT? 

BEG 6$ ‘BR Y 

HLT ;ERROR, CROM PC_1S WRONG 

SCOP 1 ‘LOOP to S$ IF SW59=1 

SCOPE :SCOPE THIS TEST 


5 330 36 30 6 0 Je EE EE EE aE aa a TEST a KUL EMM MLLER EEN KAKERU KLEE HES 
j #CROM res} OF JUMP(I) ON Z BIT SET BIER. PROCESSOR INSTRUCTION. 
*xSET THE Z BIT, PERFORM THE JUMP INSTRUCTION 

j VERIFY THE JUMP BY READING THE CONTENTS OF THE NEW ROM PC 

£36 HE HE HE HE HEE HE HEH HEE HE HE EH HE HH HH EEE REE E RE ES 


; TEST 10 
Mov #10, TSTNO 
MOV #TSt11,NEXT 
MOV #1$,L0CK 
;R1 CONTAINS BASE DMC11 ADDRESS 

MSTCLR jMASTER CLEAR DMC11 
BIT #B1T15,STAT1 ‘1S IT ? 
BNE 6$+2 :SKIP TEST IF YES 
ISR PC, MAPCK *CHECK FOR HI OR LO 
JSR PC,SETZ ;SET THE 2 Z BIT on 
ROMCLK ;N IS INSTRUCTION, ROMCLK PC=5304 
10400 5 ORT ae ROM PC=0 

mcLK ;NEXT Wo IS INSTRUCTION, ROMCLK PC=S304 
Fons 7!<400%3> : JUMP TO ROM PC OF 1 
JSR PC, ROMDAT jRS=EXPECTED ROM DATA,RY=ACTUAL ROM DATA 
CMP RS,R4Y : ARE NEW PC CONTENTS CORRECT? 
BEQ 2s :BR IF Y 
HLT 6 ?ERROR, CROM PC_IS WRONG 
SCOP1 :LOOP to 1$ IF SWO9=1 
MOV #3$ , LOCK :NEW SCOP1 
JSR PC,SETZ ;SET THE 2 BIT’ 
ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
100463 ;START AT ROM PC=3 
ROMCLK NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
100000! <400*3> _; JUMP TO'’ROM PC OF O 
JSR PC, ROMDAT s HOREXPECTED ROM DATA,RY=ACTUAL ROM DATA 
CMP RS, RY ;ARE NEW PC CONTENTS CORRECT? 
BEQ 4§ BR YES 
HLT 6 j ERROR CRON, pc IS WRONG 
SCOP1 Pt0 9.38 I F SWO9=1 
MOV #5$, LOCK hens 


JSR PC,SETZ ;SET THE 2 BIT’ 


PAGE: 
SEQ 


0233C2 
0233 


pepecpectecractecteetietet TE TET 3 
BURALO= SOON LD 


BO3 


PAGE: O234C 
Pll OS-JAN-78 11:08 CROM JUMP TESTS SEQ aaace 
024300 104414 ROMCLK ;NEXT_ WORD IS INSTRUCTION, ROUMCLK PC=S304 
peas 100406 100406 :START AT RO =6 
104414 ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
358 104125! <400#3> : JUMP TO ROM PC OF Ses 
1 4737 026752 JSR PC, ROMDAT ?RS=EXPECTED ROM DATA,RY=ACTUAL ROM DATA 
14 1eSe 1252 : INDEX 
Bey 18 020504 CMP RS,RY ; ARE NEW ROM PC CONTENTS CORRECT? 
001401 BEQ 6h Y 
pei sss 104006 HLT & {ERROR CROM PC IS WRONG 
3e4 104401 6$: SCOP 1 LooP to S$ IF SW59=1 
024326 104400 SCOPE ‘SCOPE THIS TEST 
5 HEHE EE EEE TEST Ll MRR RRR RRR AREER EERE EERE REX 
:*#CROM TEST OF JUMP(I) ON BRO SET BIGRO-PROCE SSR INSTRUCTION. 
:xSET THE BRO BIT, PERFORM THE JUMP INSTRUCTI 
Real THE JUMP’BY READING THE CONTENTS OF oie NEW ROM PC 
5 RERSRARRKRAKKLE RRA RRR EKAAA BAA RHAARAAAARAAARAAAAARAKAAAARAERRES 
; TEST 11 
024330 012737 000011 001226 TST11: Mov #11, TSTNO 
024336 012737 Oe4Se4 O01e216 MOV #TSt12, NEXT 
024344 012737 024370 001220 MOV #1$,LO0¢K 
;R1 CONTAINS BASE OMC11 ADDRESS 
352 104412 MSTCLR ;MASTER CL EAR DMC11 
354 032737 100000 001366 BIT #BIT1S,STAT1 ;1S_ IT CRAM? 
362 001057 BNE $+2 :SKIP TEST IF YES 
024364 004737 027014 - JSR PC, MAPCK ;CHECK FOR HI OR L 
370 004737 026676 JSR PC, SETBRO sSET THE BRO BIT’ 
374 104414 ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
376 10400 100400 jSTaaT AT ROM PC=0 
400 104414 ROMCLK ; NEX XT WORD IS INSTRUCTION, ROMCLK PC=S304 
O2e440e 116377 114377! <400#4> ; TO ROM PC OF 
mf ielerg 026752 138 PC, ROMDAT 3 RS= XPECTED ROM bata 7 RYSACTUAL ROM DATA 
412 Oe0S04 CMP RS,R4 {ARE new PC CONTENTS CORRECT? 
4414 001401 BEQ es 
4416 104006 HLT & ERROR VERON PC IS WRONG 
Oe44e0 104401 2s: SCOP1 :LOoP to 1§ IF SWO9=1 
paises 012737 024430 001220 o- MOV #3$, LOCK ;NEW SCOP1 
024430 004737 026676 JSR PC, SETBRO ;SET THE BRO BIT 
024434 104414 ROMCLK ‘NEXT WORD IS INSTRUCTION, ROMCLK PC=S5304 
024436 100403 100403 ; START AT RO 
024440 104414 ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
Oe444e 102000 100000!<400#4> ;JUMP TO ROM PC OF O 
024444 b59 37 026752 JSR PC, ROMDAT ;RS=EXPECTED ROM DATA,RY=ACTUAL ROM DATA 
02e44SO 000000 0 ; x 
Oe44Se O20S04 CMP RS,RY ; ARE NEW PC CONTENTS CORRECT? 
O244S4 001401 BEG 4§ i YES 
hatte, 104006 HLT & ERROR CROM PC _IS WRONG 
0244 104401 4g: SCOP1 :LooP to 3$ IF SWO9=1 
O2e446e 012737 O24470 001220 MOV #S$,LOCK :NEW SCOP1 


024470 cs: 


turururururururorerurorururufoforurerururuforfurururururoruru fururufure foforurururu rurururorurororu ru rururorur 


ee eh ee bb 


CORTE IEW OONE SESE GS SARS RIOR BERNE OR Bam sna Sano 


0S-JAN-78 11:08 CROM JUMP TESTS PAGE gg 6 3567 
004737 026676 JSR PC, SETBRO ;SET THE BRO B 
payne ROM CLK iN XT WORD Is Ss INSTRUCTION, ROMCLK PC=S304 
4 o406 ART 
104414 ROMCLK | os Ext WORD 15, INSTRUCTION, ROMCLK PC=5304 
of 054253 026752 om PC, ROMDAT ie EXPECTED RO ROM ae R4Y=ACTUAL ROM DATA 
B5738) che eg. t ARE WW ROM PC CONTENTS CORRECT? 
14 £Q 6 ?BR I 
- HLT 6 ERRORS CROM PC I Is ue WRONG 
ie * a8 5885 'Gui8 Hest 
HEGROM Test OF TUNPCL) ON BRL SET NT ; he et hk ag ts tes + gia 
sere al¥T dtc Sn He nl PReTROe TOK, 
Sa eA OL 
; TEST 12 
12737 0 1226 TSTle: Mov #12, TST 
Gi 73 pogss piste Vv s18t13 Next 
12737 O2e4S64 001220 MOV #1, LOCK 
;R1_ CONTAINS BASE jpmea ADDRESS 
guyi2 MSTCLR jMASTER LEA AR DMC 
327 100000 001366 BIT #B1T15,STATI :IS ITC 
1057 BNE . :SKIP TEST IF YES 
£0 004737 027014 - JSR PC, MAPCK :CHECK FOR HI OR LO 
the wr 2 Acs penta i 7 eB is in NSTRUCTION, ROMCLK PC=S304 
1Bibs ane Sheer RP eda HOSE 
108414 OMCLK, mats T WORD IS INSTRUCTION, ROMCLK PC=5304 
b48535 026752 iid Pe ROMDA e me dBA Psa b bataR R4Y=ACTUAL ROM DATA 
003776 3776 
oSO4 CHP RS, RH RE NEW PC CONTENTS CORRECT? 
1401 Eu 2 Brie Y 
1 HL om PC IS WRONG 
04401 2s: SCOP 1 LOOP. to. 1$ IF SWO9=1 
12737 024624 001220 a MOV #3$, LOCK LOG 
004737 026704 . JSR PC, SETBR1 ; SET 7 THE ABR} BIT. 
104414 ROMCLK S INSTRUCTION, ROMCLK PC=5304 
100403 START AT R 
104414 ROMCLK *NEXT WO Ss INSTRUCTION, ROMCLK PC=5304 
100000!<400*5> ;JUMP TO'ROM PC 
737 026752 JSR PC, ROMDAT eae er vee ROM DATA,RY=ACTUAL ROM DATA 
og CMP RS,R4 GR HEM pC CONTENTS CORRECT? 
001401 BEQ 4$ 
104006 HLT & ca Bon Pc I WRONG 
44 4$: SCOP1 ite to IF SWO9= 
012737 O24664 001220 MOV #S$, LOCK 
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OS-JAN-78 11:08 CROM JUMP TESTS SEQ 0236 
S$: 
004737 026704 JSR PC,SETBR1 ;SET THE BR1 BIT’ 
104414 ROMCLK NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
(ee tie Be nga. neu rns 
ae REE, soon vebodol BP" 
: 026752 PC, ROMDAT oe ROM DATA, ett. ROM DATA 
ee 
af pu se3e BR RY re per = PC CONTENTS CORRECT? 
HOi4O1 EQ 6 
10006 6s HLT 6 erm ae" ge Ht OS el 
i 44 ; Sasa a7 t£ st 


5 REAR R ERE TEST 12 BREE REE AR EERE ER EE EE EEE EELS 
:*#CROM TEST OF JUMP(I) ON E'R4 SET DIR Eton. INSTRUCTION. 
;*SET THE BRY BIT, PERFORM THE TUYP NSTRUCTI Fey 
1 ee aaen THE JUMP BY READING fHe CONTENTS HE NEW ROM PC 

Se HE Ee A SE SE HE SE Ee EE A EE A HE AE AES Hee EE SSRESOESHSSMSSERSESEESNEREEERES 


, TEST la 
12737 000013 001226 1TST13: Mov ul TNO 
12737 025114 O01e16 MOV tla NEXT 
12737 0e4760 OO01e20 MOV #15, LOCK 
104412 MSTCLR RAF R CLEAR ORE LG Poe eee 
737 100000 001366 IT #B1T1S,STATI S qt 
1057 NE +2 ;SKIP T St i iF Y So 
7 027014 - S , MAPCK : CHECK 
737 026712 . JSR PC, SETBRY SET tite 
1 4a4 RONG kK RexT IS NSTRUCTION, ROMCLK PC=S304 
LO4M1y TNS>>s cyoogs, WORD IS, INSTRU TION, ROMCLK PC=S304 
4737 026752 R PC, ROMDAT ineoe XPECTED ROM DATA,RY=ACTUAL ROM DATA 
Ge0504 CHP 85, ;BRE NeW PC CONTENTS CORRECT? 
{ tt 2$ Ok PL . Coop to-1s IF slosei 
012737 o2502G 001220 ion MOV #3$, LOCK : NEW “s 
4737 026712 4 JSR PC, SETBRY ;SET_ THE BRY BIT 
104414 ROMCLK :NEXT WORD IS IN NSTRUCTION, ROMCLK PC=S304 
100403 100463 :START AT ROM PC= 
: 414 ROME, aoees fea 10 eT pH? IS INSTRUCTION, ROMCLK PC=5304 
0047 37 026752 JSR “pc, ROMDAT ;RS=EXPECTED ROM DATA,RY=ACTUAL ROM DATA 
020504 CMP RS,RY i BRE NEW PC CONTENTS CORRECT? 
1401 BEQ ug RIF Y 
4 RROR OM PC IS WRONG 


104006 HL 6 
104401 4$: SCOP 1 i LOOP to 3$ IF SWO9=1 


E03 


CZDMGD.P11 OS-JAN-78 11:08 CROM JUMP TESTS PAGE So 255 
2221 oesose 012737 Oes060 001220 MOV #S$, LOCK ;NEW SCOP1 
5555 psepee 004737 026712 oe ISR PC, SETBPY ;SET THE BRY BIT 
gees 4 Louw ROMCLK ant aT ROB Is — ROMCLK PC=S304 
gece ges074 1030 026752 TSR, “PC, ROMDAT RS= EXPECTED ROM DATA, eatin. ROM DATA 
2230 025102 Ge0504 cn RS, R4 ARE Ney ROM PC CONTENTS CORRECT? 
ee3e 025106 104006 HLT 6 ; ERROR CROM PC IS WRONG 
22 025110 104401 6S: SCOP1 Loop to S$ IF SWS9=1 
eed O2511e 104400 SCOPE SCOPE THIS TEST 
236 
2237 5 Hee AE SE HE aE ae AE EE HE EE HE HE EE TEST 14 RRM HRHR ERE E REAR REEL EERE 
e238 secon, TES LO gid) On Oe BR7 SET T fli CRO PROCESSOR INSTRUCTION. 
2240 pp THE JUMP’ BY R BERING THE -CO CONTENTS OF TONt NEW ROM PC 
ssuk 3 ME AE HE HE HE HEE HE HEE HE HE A HE HE HE HE SE HE HEE HE HE HEE HE HEE EEE ERE E RARER 
ees ; TEST 14 
PPYS 025114 012737 000014 O01226 TST14¥: Mov #14, TSTNO 
2246 OeSi22 012737 OeS310 O01e16 MOV #TSTiS, NEXT 
22°47 025130 012737 OeS5154 O01e20 MOV #1$,LOCK 
$548 025136 104412 MSTCLR Oe oa eR DRELT | MDORESS 
2250 025140 032737 100000 001366 BIT #81T15,STATI :IS IT CRAM’ 
2251 025146 001057 BNE + :SKIP TEST IF YES 
gene Ge5150 004737 027014 - ISR PC, MAPCK :CHECK FOR HI OR LO 
2254 025154 004737 026720 : JSR PC, SETBR7 ;SET_THE BR7 BIT’ 
e235 025160 104i 14 rad sNEXT WORD IS INSTRUCTION ROMCLK PC=5304 
Sogg Aae AHP cugoar,_ —-—«tOGAD Ne Ranr pera STEON-_Ponelx onda 
geoa 025170 004737 026752 JSR PC, ROMDAT iRS= S=EXPECTED ROM DATA,RY=ACTUAL ROM DATA 
eebl 025176 Oe0s04 CNP RS, RY i ARE NEW PC CONTENTS CORRECT? 
555 104006 HLT 6 1 ae on Pc IS WRONG 
2264 04401 2s: SCOP1 ;LOOP tot IF SWO9=1 
2265 12737 025214 001220 MOV #3, LOCK NEW Spi> 
2266 025214 3$: 
2267 4 026720 ISR PC, SETBR7 SET THE. BR? 16h 
eee Ge 104414 ROMCL K Sra cin ase NSTRUCTION, ROMCLK PC=5304 
2270 24 104414 ROMCLK Ss INSTRUCTION, ROMCLK PC=S204 
227 26 03400 100000!<400*7>  ;JUMP To’ RO C°6r 
ee7e o5e834 ne 026752 JSR PC, ROMDAT Be Setek ROM DATA,RY=ACTUAL ROM DATA 
2274 025 0504 CMP RS,RY :ARE NEW PC CONTENTS CORRECT? 
2275 Oe5e40 001401 BEQ 4§ :BR 


ee76 OeSe4¥e 104006 HLT 6 ‘ERROR, CROM PC IS WRONG 





PAGE: 0238C2 
EQ Oe 


CZD0MGO.P11 OS-JAN-78 11:08 CROM JUMP TESTS S 0238 
2ee77 OeSe44 104401 4$: SCOP 1 ;LOOP TO 3% IF SWO9=1 
2e78 OeSe4é 012737 O2S2S4 001220 MOV #S$,LOCK > NEW SCOP 1 
2279 OeSes4 S$: 
2280 4 004737 026720 JSR PC, SETBR7 ;SET_ THE BR7 BIT 
e281 104414 ROMCLK + NEX XT WORD IS INSTRUCTION, ROMCLK PC=5304 
ee8e OeSe 100406 100406 ; START AT R PC=6 
2283 4 1O4414 ROMCLK NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
ee 107SeS 104125! <400*7> ‘JUMP TO ROM PC OF Ses 
eess Os 7 EL 026752 JSR PC, ROMDAT ; RS=EXPECTED ROM DATA,RY=ACTUAL ROM DATA 
e286 74 leSe 2 Ee 
2287 76 Oe20S04 CMP RS,R4 ARE NEW ROM PC CONTENTS CORRECT? 
2288 300 001401 BEQ 6$ BR IF YES 
2289 3 104006 HLT 6 ; ERROR oe pe. i3, WRONG 
2290 025304 104401 6S: SCOP1 Loop to $ IF 9=1 
SS3i 02eS306 104400 SCOPE i SCOPE outs Est? 
5545 
2234 5 REE EEEEEERREEREE TEST * REREKEE SRR RHE KER KE HEE KREREX 
ee3s ; *CROM TEST OF JUMP(I) ON C mY SET MICRO-PROCESSOR INSTRUCTION. 
2e36 ;*#CLEAR THE gir, PERFORM T JUMP INSTRUCTION, 
2297 : VERIFY THA HE JUMP DID NO your BY READING 
2e98 aT CONTENTS OF THE NEW ROM PC(IT SHOULD INCREMENT BY ONE). 
soa3 sR MRA REAR ER RARE ERE ERE E RHEE 
Sank ; TEST 15 
2303 025310 012737 o00001S 001226 TSTIS: Mov TSTNO 
2304 5316 Ole737 OeSS04 OO0le16 MOV aistie.y NEXT 
2305 S3e4 012737 25350 001220 MOV 
2306 ;R1 CONTAINS BASE DMC11 ADDRESS 
2307 OeS332 104412 MSTCLR ;MASTER CLEAR DMC1 
2 025334 032737 100000 001366 BIT #BIT1S,STAT1 ;1S_IT_CRAM? 
5308 2 10S7 BNE 6$+ ; SKIP Tel IF YES 
gait 4 37 027014 1s JSR PC, MAPCK ;CHECK FOR HI OR LO 
231 737 O26660 JSR PC, CLRALL ;CLEAR A OND 
535 pSe3eq 104414 ROMCLK : NEXT 1§ OAT AUCTION, ROMCLK PC=S304 
2314 100400 100400 ;START AT ROM PC=0 
S31 104414 ROMCLK ; NEXT WORD A°p ANB TRUGTION, ROMCLK PC=S304 
31 115377 114377! <400*2> ; JUMP T 
at Bsaaen Rane 026752 _ PC ,ROMDAT (veer ee ee ROM DATA. R4¥=ACTUAL ROM DATA 
2319 Reaie pea CMP RS,RY ; ARE NEW PC CONTENTS CORRECT? 
2320 1401 BEQ es ;BR IF YES 
2321 0253 104006 HLT 6 ? ERROR CROM PC IS WRONG 
e3e2e O2eS4 104401 2s: SCOP1 +LOOP to 1$ IF SWO9=1 
S353 Besu16 012737 OeS410 001220 as MOV #3$ ,LOCK ;NEW SCOP1 
2325 41 004737 O26660 JSR PC, CLRALL ;CLEAR ALL CONDITIONS 
S258 02S414 at ROMCLK : WORD IS INSTRUCTION, ROMCLK PC=S304 
232 025416 100403 100403 ;START AT ROM PC=3 
2328 S42 104414 ROMCLK : NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
23e9 S4e 101000 100000!<400%2> ;JUMP TO’ROM PC OF O 
5320 pee usA nla tA 026752 { R PC, ROMDAT ROD =EXPECTED ROM DATA,RY=ACTUAL ROM DATA 
2332 OeS432e O020504 CMP RS,RY ! ARE NEW PC CONTENTS CORRECT? 


GO3 
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CZOMGD.P11 OS-JAN-78 11:08 CROM JUMP TESTS SES 0239 

2333 pesiz! 001401 BEG 4¢ ;BR_IF YES 

2334 eS4 104006 HLT 6 : ERROR CROM PC IS ~ 

2335 S44 O4401 4$: SCOP1 ‘LOOP to 3$ IF SWO9=1 

533 ua 12737 OeS4SO 001220 gs MOV #S$,LOCK :NEW SCOP1 

2338 pea tea 737 026660 JSR PC, CLRALL ;CLEAR ALL CONDITIONS 

23393 454 104414 ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 

2340 4 100406 100406 START AT ROM PC=6 

2341 O2S4 104414 ROMCLK er WORD IS INSTRUCTION, ROMCLK PC=S304 

e34e O0eS4 10S1e5 104125! <400#2> TO ROM PC OF S 

2343 asaueh 004737 026752 JSR PC ,ROMDAT : RS=EXPECTED ROM DATA,RY=ACTUAL ROM DATA 

2344 025470 O00016 16 iI 

234S 025472 d2e0S04 CMP RS,RY !ARE NEW ROM PC CONTENTS CORRECT? 

2346 025474 001401 BEQ 6$ :BR IF YES 

2347 025476 104006 HLT & : ERROR CROM PC_ IS WRONG 

2348 025500 104401 6$: SCOP 1 > LOOP to S$ IF swW59=1 

203 OeSSOe 104400 SCOPE : SCOPE THIS TEST 

2351 

23Se yA ERE TEST s., pete tis t ttt ttt itt tttittsict) 

2353 > #CROM TEST OF JUMP(I) ON Z BIT SET MICRO-PROCESSOR INSTRUCTION. 

2354 : ¥CLEAR THe cS BIT, PERFORM THE JUMP ist S True T ton . 

2355 Ham HE JUMP DID NO pert? on READING 

2356 *%THE CONTENTS OF THE NEW ROM PCCIT SHOULD INCREMENT BY ONE). 

es Nee NR RUCeSGaEOORGGOUDOSSESERSUNSSRRGESESSEGEEERERTESIORS 

5373 ; TEST 16 

2361 Qesee4 012737 ooool1 001226 TST1l6: Mov #16, TSTNO 

2362 SSi2 012737 Oe5700 OOleléb MOV orate NEXT 

2363 025520 012737 O25544 001220 MOV Lock 

2364 ;R1 CONTAINS BASE DMC11 ADDRESS 

2365 SS26 493345 MSTCLR s Raster CLEAR Cll 

2366 S30 2737 100000 001366 BIT #BIT1S,STAT1L ;I1S_ IT CRAM? 

2367 O25536 001057 BNE + ;SKIP Teer IF YES 

ies Seed 004737 027014 2 JSR PC, MAPCK ;CHECK FOR HI LO 

2370 OeSS44 004737 026660 JSR PC,CLRALL ;CLEAR ALL CONDITIONS . 

237 Ss 104414 ROMCLK ;NEXT WORD IS prope 1am, ROMCLK PC=5304 

237 ss 1 jee ;START AT ROM PC=0 

2373 SSY 104414 ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 

2374 BSPePR 18777 114377! <400#3> ; JUMP ne ren PC OF hag 4 

2375 4737 026752 JSR PC, ROMDAT ;RS=EXPECTED ROM DATA,RY=ACTUAL ROM DATA 

2376 S64 000002 2 ; INDEX 

2377 pera CMP RS,RY ;ARE NEW PC CONTENTS CORRECT? 

237 1401 BEQ es ;BR IF YES 

237 S72 104006 HLT 6 ;ERROR, CROM PC_IS WRONG 

2380 025574 104401 2$: SCOP1 :LOOP to 1$ IF SWO9=1 

5384 Bse604 bi273? 025604 001220 2. MOV #3$,LOCK ;NEW SCOP1 

2383 S6 004737 O26660 JSR PC, CLRALL ;CLEAR ALL CONDITIONS 

2384 OeS610 104414 ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 

2385 OeSb6le 100403 ipo? ;START AT ROM PC= 

2386 ps2Pt? 104414 ROMCLK ; NEXT 4° INSTRUCTION, ROMCLK PC=S304 

2387 S616 101400 190000! « 40043) JUMP TO ROM PC 

2388 OeS620 904737 O26752 JSR PC,R omoat ;RS=EXPECTED ROM DATA,RY=ACTUAL ROM DATA 


012737 


004737 
104414 


manta 
1049414 


02eS644 
026660 


026752 


000017 


027014 
026660 


026752 


026000 
026660 


001220 


001220 


4$: 
S$: 


6$: 


TST17: 


1$: 


es: 
3$: 


10 

cme RS,R4 

BEQ 4$ 

HLT 6 

SCOP 1 

MOV #5$,LOCK 
JSR PC,CLRALL 
ROMCLK 

ioe 

ROMCLK 

{Os tes! < 39083), 
Sw PC, ROMDAT 
CMP RS, RY 

BEQ 6$ 

LT 

SCOP 

SCOP’ 


eee eee TUMP(T) ON BR T 


FS Dhol bell at NBERDT Noo “ 


; #CROM meer oe OF J 


Fane THA 
i *#THE CONTENTS 


te gdm 


ane Neu PC CONTENTS CORRECT? 
! ERROR CROM PC 1S WRONG 
:LOOP to 3$ IF SWO9= 

:NEW SCOP1 


;CLEAR ALL CONDITIONS 
NEXT facts NSTRUCTION, ROMCLK PC=S304 


Ss INS RUCTION, ROMCLK PC=S304 

;JU OM PC OF 

i aap ROM DATA,RY=ACTUAL ROM DATA 
prve gon PC CONTENTS CORRECT? 


cir eet 


T 17 KERR RRRRRERRRRE ER ESRREE SEER 
ICRO-PROCESSOR INSTRUCTION. 


CcIT SHOULD INCREMENT BY ONE). 


Be ee eS oe sc eU CER CUASSSAREDESSORGMNSOESHSEHEEGEEESINES 


; TEST 17 


#17, TSTNO 


MOV #TST20, NEXT 


MOV #1$, LOCK 


PC ,MAPCK 
PC, CLRALL 


K 
TSS Ss woos 
R PC ,ROMDAT 


MP RS,RY 
g 


#3$, LOCK 
JSR PC, CLRALL 


OMCLK 


Fa L*S. Sees 
6$+e 


iRASTER CLEAR OM BAS A, ees ADDRESS 


Eee) T af" IF 
CHECK FOR HI OR L 


CLEAR Pia CONDITIONS 
+ OE ART Rr IS INSTRUCTION, ROMCLK PC=5304 
NEXT ExT WORD 15, GNePRuctroN, ROMCLK PC=5304 


Bae ROM DATA,RY=ACTUAL ROM DATA 
NEW PC CONTENTS CORRECT? 
ea OM PC_IS WRONG 
1$ IF SWO9=1 
1 CLG ALL CONDITIONS 
WORD IS = adil ROMCLK PC=5304 


;NEXT 
:START AT Rye fF Ce3 
:NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
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CZDMGD.P11 OS-JAN-78 11:08 CROM JUMP TESTS SEQ 0241 
2445 026012 102000 100000!<400#4> JUMP TO ROM PC OF 0 
gue 026014 004737 026752 ISR PC, ROMDA at ; RS=EXPECTED ROM DATA,RY=ACTUAL ROM DATA 
44 Ose0se CMP RS,RY ARE NEW PC CONTENTS CORRECT? 
244 001401 BEQ 4§ ‘BR IF Y 
2450 194006 HLT 6 :ERROR, CROM PC_IS WRONG 
eel 1O4N 4S: SCOP1 i; LOOP. to. 3s IF SWO9=1 
eee 1373 026040 001220 ue MOV #S$, LOCK tNEW 
e454 004737 026660 JSR PC, CLRALL ;CLEAR ALL CONDITIONS 
455 4 1O4414 ROMCLK XT WORD IS INSTRUCTION, ROMCLK PC=S304 
4 100406 100406 is ART AT ROM PC= = 
ous 104414 OMCLK !NEXT WORD IS INST RUCTION, ROMCLK PC=S5304 
ous 1es Pore: <4ooK4> : JUMP TO ROM PC OF S25 
ous 4 4737 026752 JSR PC, ROMDAT !RS=EXPECTED ROM DATA,RY=ACTUAL ROM DATA 
2460 6060 O000i6 16 : INDEX 
246 Deb0be De0504 CMP RS ,R4 ; ARE NEW ROM PC CONTENTS CORRECT? 
4 6064 1401 BEQ 6 BR IF YES 
2463 104006 HL :ERROR, CROM PC_IS WRONG 
2464 026070 104401 6S: SCOP1 ‘Loop to S$ IF W59=1 
cbs 026072 104400 SCOPE ‘SCOPE THIS TES 
2467 
eY46a eee reeT OF JUMP(1) ON BR TEST y RKKRKREKRAAAARKRSAEAKRASRARKRLELES 
2469 OF JUMP(I prom 1 i at HIRO PROCESSOR INSTRUCTION. 
2470 eer eaR Ad IT, “PERF 
2471 j AVERIFY THAT TPOctuR BY 
247 yume NEL OOM PC(IT SHOULD INCREMENT BY ONE). 
a5 Se SSUES UEEASHANSEASESASESMNESEGHESENEREESSEERSESCORERESE OHSS 
es ; TEST 20 
2477 026074 012737 000020 O01226 TST20: Mov #20 TSTNO 
2478 026102 012e737 Oe6270 OOlel6 MOV #TSt21,NEXT 
2479 026110 012737 026134 001220 MOV #1$,L0CK 
2480 AsfER eLEae BASE ONC 11 ADDRESS 
2481 O26116 104412 MSTCLR Ras AR OMC1 
sige Ge61 32737 100000 001366 IT wgIT15, STATI sty 
61 1057 NE 6$+2 SKI, er iF YES 
ees Geb 1 37 (027014 a ISR PC, MAPCK CK LO 
2486 1 737 026660 ' SR PC, CLRALL ;CLEAR ONDITIO 
487 Ose 149 : 414 Rane kK iNEXT WO RO 1S NSTRUCTION, ROMCLK PC=S304 
2489 Oe6144 104414 ROMCLK i NEXT ExT WORD] Is RUCTION, ROMCLK PC=5304 
2490 Oe2bl 67 1 theter <400#5> paNsTRy or 
ei3 i 0 737 026752 JSR PC, ROMDAT Ree XPECTED ROM bata. R4Y=ACTUAL ROM DATA 
ei3 1 o4 Eup RS.R4 NEW PC CONTENTS CORRECT? 
Q4 1 91401 BEQ 2 i IF YES 
2495 Oe6l1 HLT 6 !ERROR, CROM PC_IS WRONG 
e136 B26! 4 164 “Oi 2s: SCOP ; LOOP to 1$ IF 9=1 
e37 i 127 026174 001220 _ MOV #3$, LOCK :NEW SCOP1 
249g OSeiz4 004737 O26660 ISR PC, CLRALL ;CLEAR ALL CONDITIONS 
2500 Oe6e00 104414 ROMCLK 'NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 


-jo3 
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CZD0MGD.P11 OS-JAN-78 11:08 CROM JUMP TESTS SEG Deve 
250i Oebe0e 100403 100403 erm’ AT ROM PC=3 
es OY 104414 ROMCLK T WORD IS INSTRUCTION, ROMCLK PC=S304 


7 026752 $2 Q000! «pp ORanoAt To "Aor neCocthed ROM DATA,RY=ACTUAL ROM DATA 


mae 
14 10 

- Bensos CMP oo s BO reves” CONTENTS CORRECT” 
34 


Sopeees 


YER - 
i oO 
% 


1401 
194008 ‘BRIE Y CROM PC_IS_ WRONG 
i 40 4$: LOOP. to 3s IF SWO9=1 


2509 
8510 12737 026234 001220 Mae MOV #S$, LOCK ‘NEL 
2518 737 026660 y JSR PC, CLRALL OND 
251 i i ROMCL K NeXT as RSTRUCTION, ROMCLK PC=S304 
2514 1 100406 : START 
gois 1 414 ROMCLK ;NEXT yoro Is INSTRUCTION, ROMCLK PC=S304 
1 S 1041 56) <yooss> : JUMP T PC S 
: 9 737 026752 ISR PC, ROMDAT 1 XPECTED ROM DATA, R4Y=ACTUAL ROM DATA 
ig CMP RS,RY i, - PC CONTENTS CORRECT? 
1401 BEQ 6$ i 
e5el 104006 HLT 6 ‘ERom PC IS WR 
e5e2 4 104401 6S: SCOP1 op to 2 IF guess 
Oebe66 104400 SCOPE HIS TES 
e55e 


{schon Test OF JUNPC) ON BRM Test TD eee e eee eon INSTRUCTION. 


SOT Pe lor arse Maa 


Be CONTENTS MENT BY ONE). 
rTHE CONTENTS OF, THe NEW OM PCCIT SHOULD INCREMENT By ONE) 


Pattattatttattatetta ta tert 


BSS SéR GHA SIELERIERE SOS 


; TEST 21 
70 012737 o00021 1226 TST21: Mov 
Oster 01 737 O2e6464 001816 MOV efeteg NEXT 
12737 026330 lee0 MOV 


Raster CLEA BASE DMC11 ADDRESS 
LEAR DMC1i1 


= 100000 001366 Ir IT1S,STAT1 TF CRAM 
fee a pe Bae vs 





7 027014 iat J , MAPCK CK 
i ee . ROMCLK dep eeraetace SR ak comostione ROMCLK PC=5304 
rae ane pogo es 
104414 ROMCLK, é ne T9"Bon poor RUCTI ON, ROMCLK PC=5304 
7 026752 15R PEOR SMOAT fad CTED ROM Pn R4Y=ACTUAL ROM DATA 
es 0504 3 ; NEW PC CONTENTS CORRECT? 
se = feo aig PC_IS WRONG 
Seec bi273? o2ea70 oo1e2eo ** = OV 838, LOCK rest * 
2556 3S: f . 


PAGE: O243CZ2 
SE 


CZDMGD.P11 OS-JAN-78 11:08 CROM JUMP TESTS @ 0243 
2557 026370 004737 026660 JSR PC, CLRALL ; CLEAR AL LL CONDITIO NS 
e558 026374 ROMCLK !NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
e553 100403 :START AT ROM PC=3 
gob 130600: «0086» ‘nm 10) Nee pHORD O° INSTRUCTION, ROMCLK PC=S304 
este 026752 isk Pc, ROMDAT , RSSEXPECTE ROM DATA,RY=ACTUAL ROM DATA 
gobe che RS, R4 ;BRE NEW PC CONTENTS CORRECT? 
gob AL? : ERROR Eon PC IS WRONG 
4$: SCOP1 ‘LOOP to 3$ IF SWO9=1 
sees 026430 001220 a MOV #S$, LOCK :NEW SCOP1 
. 026660 : SR PC, CLRALL ; CLEAR 
e571 ROnCL« HREXT WORD. 18 ERS TRUCT ION, ROMCLK PC=S304 
73 ROMCLK :NEXT IS INST CIION, ROMCLK PC=5304 
74 104125! <400#6> ;J TO ROM P 
2575 026752 JSR PC, ROMDAT S ROMEXPE : x XPECTED ROM BATA R4=ACTUAL ROM DATA 
5258 CMP RS,RY H NEW “en PC conte CORRECT? 
5573 ALS y ERROR AO YE BoM PC 
6S: SCOP F 9=1 
581 eCOPE oop to 5$ te Fogel 
2583 
S230 semeryueeerrue, 1 RpnBROCESEOR INSTRUCTION. 
-# - 
ce EEROL ad Se BOT et a nan 
sea HIVERIEY That f THE ne RON Pot YF FOUL a BY ONE) 
e565 ; : Peer errr Tete rer eTeTerererererrrrrrrvrrerrrererir itt TT trttitey 
sea ; TEST 22 
se goggee 001226 TST2e2: ov #22, TSTNO. 
ee . 
Sege beeeey bolSe0 MOV BAS LOCK 
2596 ONTAINS BASE DMC LI ADDRESS 
3 MSTCLR As "chan DMC 1 
38 100000 001366 T #B1T15, STATI iP iT 
Beh Shdox Fa AE OR 
027014 ee J PC, MAPCK CK LO 
026660 C PC, CLRALL COND IT IONS 
iNET T MORO, 15 el ION, ROMCLK PC=5304 
i ;NEXT ots 5 NSYRUCTION, ROMCLK PC=5304 
026752 - PC, ROMDAT Ape ROM soa? R4Y=ACTUAL ROM DATA 
RS,RY ARE NEW PC CONTENTS CORRECT? 
i HS Fonda,” 
e611 HL S RR OM PC IS WRONG 
1 2s: SCOP1 :LooP fo 1$ IF SWO9=1 





Seer 
OO NOU LC 


OOO OOOO 
3 


ia 
_ 


tatatutaatatat ate 


3a 


x NNN 
TEES Fe co uuER ERE UN BURN 


ree 


tat atatat at att at 
DO VON LH Ob 


a 


012737 


104414 


-Pll OS-JAN-78 11:08 


026564 
026660 


026752 


026624 
026660 


026752 


001220 


001220 


CROM JUMP TESTS 


xT 
"oon TO NG PC 


;NEW SCOP1 


iNEXT WORD 1S TK TAUCTION, ROMCLK PC=5304 


C=3 
Rog INSTRUCTION, ROMCLK PC=S304 
3RS= ere ROM DATA,R4=ACTUAL ROM DATA 


ARE NEW PC CONTENTS CORRECT? 
!BR IF YES 


iCGop to a8 IF SHdg=1 


;NEW SCOP1 


; CLEAR ALL CONDITIONS 
ig xT ee IS INSTRUCTION, ROMCLK PC=5304 


T ROM PC= 
;NEXT WORD A INSERUCTION, ROMCLK PC=S304 
LRRSENPECTED RO ROM OTK meactun. ROM DATA 
; ARE ae = PC CONTENTS CORRECT? 


;BR IF 
i’ ‘EROM PC_IS WRONG 


LOO, to fEs7° =! 


* THIS SUBROUTINE CLEARS THE C&Z BITS AND THE BR 


OReO WORD IS INSTRUCTION, ROMCLK PC=S304 
i) won IS INSTRUCTION, ROMCLK PC=S304 
xT Roe 4s INSTRUCTION, ROMCLK PC=5304 


; THIS SUBROUTINE SETS BRO BIT 


- MOV #3$, LOCK 
; Jse PC, CLRALL 
MCLK 
1o0%03 
Pee Ke <4p0R7> 
JSR PC, RO 
cne Re RY 
EQ 4 
HLT 6 
4$: SCOP 1 
wee MOV #S$, LOCK 
: JSR PC, CLRALL 
ROMCLK 
004 
OMCLK 
1O41eS! «4007» 
JSR PC, ROMDAT 
CHP Re, RY 
9 6 
6$ oc op . 
} ee OpE 
; SUBROUTINES 
CLRALL: 
ROMCLK 
ROMCLK 
06322 
ROMCLK 
Ris PC 
SETBRO: 
sence 
RTS 
SETBRI: 


5 EXT MORO IS INSTRUCTION, ROMCLK PC=S304 
; ial 


;THIS SUBROUTINE SETS BRI BIT 


ROMCLK 


;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 


PAGE: 
S 


O244CZ 
EQ 0244 


-Pll 


026706 
026710 


026712 


026712 
6714 
6716 


026720 


026720 
026722 
026724 


026726 


OS-JAN-78 11:08 


000402 
000207 


104414 


bau25? 


104414 
000600 
000207 


boooo2 
Bieae4 


000002 001372 


016324 
000006 


MO3 


PA 
SUBROUTINES | 
000402 ;BReO02 
RTS PC 
SETBRY: 
;THIS SUBROUTINE SETS BRY BIT 
ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
g09420 ;BR+O20 
PC 
SETBR?: 
;THIS SUBROUTINE SETS BR7 BIT 
ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
000600 :BRe200 
RTS PC 
SETC: 
;THIS SUBROUTINE SETS THE C BIT 
ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
00777 :BRe 37 
RONC kK ie ugao IS INSTRUCTION, ROMCLK PC=S304 
ROMCL K :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
060400 :BReSP(0)+BR 
RTS PC 
SETZ: 
;THIS SUBROUTINE SETS THE Z BIT 
ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
909777 :BRe377 
RT PC 
ROMDAT : 
;THIS SUBROUTINE LOADS RS WITH EXPECTED ROM CONTENTS 
:AND LOADS R4 WITH ACTUAL ROM CONTENTS 
Vv acsP) aRO x F OMPARE 
t epi: Fake 
MOV sett TO, (RI) 
MOV ET : ECTED IN RS (LOSPEED) 
BIT #BIT1, g02455 ie OR Hi PEED? 
Q i I LOW i 
MOV HIMAP(RO),RS T EX ECTED N as (HISPEED) 
1S: MOV 6(R1),R4 ip FOUND” 
RTS PC + RETURN 
MAPCK: 


;THIS SUBROUTINE CHECKS THE STATUS TABLE AND LOADS 


co Baas’ 


NO3 


CZDMGD.P11 OS-JAN-78 11:08 SUBROUTINES 
2725 ;THE ROMMAP POINTER TO POINT TO EITHER THE HIGH OR 
g558 :LOW SPEED MICRO-CODE. 

728 7014 012737 012324 012322 MOV #LOMAP,ROMMAP  ;LOAD POINTER TO LOW SPEED 
729 Oe702e2e 032737 O00002 001372 BIT #61T1,STAT3 ‘CHECK STATUS TABLE 
2730 027030 001403 BEQ 1$ :BR IF LOW SPEED 
2731 Oe7032 012737 016324 012322 MOV SHINAP, ROMMAP ‘LOAD POINTER TO HIGH SPEED 
8738 027040 000207 1S: RTS PC : RETURN 
so30 
027042 041777 O40S22 O2011S EMI: -ASCIZ 77> /CRAM ne BOORE 
02706 377 $1103 6501 EMe: [ASCI 77> /CRAM DORESSING ERROR’ 
02711 377 051103 046517 EM: [ASCIZ 6395) Oe ROM A RROR/ 
027140 045372 046S25 0120 EMY: "ASCIZ <377>/I Mr ERR ORY 
be71s4 047777 104 244 MS: -BOCI (3777 TE ROR IN IBUS* REG1O/ 
72 044777 117 644 M?: “ASC < 77>/ TEST 
027224 041377 Ole 452 M10:  .ASCI (3779 75R P RIGHT SHIFT TEST’ 
72 307 2s 25 Mil: -RSCT 77>/ ECEIVE. DA DATA TA ERROR’ 
72 77 il 25 Mle: :Asc 77>/F 
027321 377 047503 OS2ll6 EMI3: .ASCIZ ¢397> CONTROL Bae ERROR/ 
027344 042777 OS0130 041505 DHI: .ASCIZ <377>/EXPECTED FOUND ADDRESS/ 
027376 042777 050130 041505 ODke: ASCIZ <377>/EXPECTED FOUND/ 
027417 377 051440 046105 DHS: "ASCIZ <377>7 SEL4 SEL6/ 
027440 o00003 DT1: 3 
027442 006 004 “BYTE 6,4 
027444 001264 SAVRE 
berae 006 004 “BYTE 6,4 
0274 00127N SAVRY 
Berued ooisea 426 SAVARD 
027456 erate DT2: 
027460 006 004 . BYT 6,4 
027462 001272 SAVR 
027464 006 004 .BYTE 6,4 
027466 001270 SAVRY 
20 0 002 “BYTE 4,2 
027472 001264 SAVRe 
027474 000003 DT3: 
027476 004 -BYT 6,4 
027500 O01 SAVR' 
027502 004 BYT 6,4 
027504 001270 SAVRY 
0275) 002 “BYTE 4,2 
02751 252 TEMPS 
Os 1§ 007 om: Savte 3,7 
5et8 001s 002 SOynE 3,2 
pS5e50 001270 SAVRY ‘ 
ge7se4 000002 DTS: 2 vTE se 
027530 001272 = SAVRS : 


027532 006 ooe -BYTE 6,2 


PAGE: 
SEQ 0246 


024602 
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CZ0MGD.P11 OS-JAN-78 11:08 SUBROUTINES SEQ 0247 

027534 001270 SAVRY 
027536 000003 DT?: 3 
gered 903 010 -BYTE 3,10 
027542 O0le SAVRS 
027544 003 004 BYTE 3,4 
27546 001270 SAVRY 

7550 gos 002 .BYTE 4,2 

oeeq bad0es oT10: 3 
027556 003 007 -BYTE 3,7 
027560 001272 SAVRS 
027562 00. 004 BYTE 3,4 
027564 001270 SAVRY 
027566 006 002 -BYTE 6,2 
027570 001252 TEMP3 
027572 o00002 DTil: 2 
027574 006 004 -BYTE 6,4 
027576 001252 TEMP3 
027600 006 o0e BYTE 6,2 
027602 001254 TEMPY 
027604 -ERRTAB: 
027604 o000 a) 
027606 o00000 0 
Ge7619 00 0 

76le O27042 EM1 

ele Bering ae 
OS7b28 7063 EMe 
Oe762e 027344 DH1 ;HLT 2 
027) 027440 DT1 
027626 02704 EM1 
0276 7344 DH1 ;HLT 3 

76 74 DT2 
Gores Berhi i ne 
Os7e49 0553 DT3 
Gere Bezhre Be uM s 
BS5e Os7ei DT4 , 
0276 7140 EMY 
027652 027376 DHe ;HLT 6 
027654 027524 DTS 
0276 027154 EMS ne 
027 73 DHe ;HLT ? 
Ge 751 OT4 
gereee Gosog9 

7e55 BoBeoD 
02767 7206 EM7 
Ge7674 ce ny OHI ;HLT 11 
OS 5508 7224 EM10 
0277 7376 DHe ;HLT 12 
0277 7512 DT4 
027706 027251 EM11 


CZ0MGO.P11 
027710 


027736 


OS-JAN-78 11:08 


027572 


000001 


SUBROUTINES 
DH1 ;HLT 
OTiO 
® 
;HLT 

Mle 
DHe ;HLT 
oTs 
EM13 
DH3 ;HLT 
DT11 
CORMAX: 

. END 


1S 


16 


STS 


PAGE ee 62867 


pov 


CZDMGO.P11 OS-JAN-78 11:08 CROSS REFERENCE TABLE -- USER SYMBOLS 


ADRCNT= 904373 879% 915% 9248 
AUDONE 003024 569 608 613 6598 
AUSTRT OO02446 S6se 663 
AUTO.S O os14 526 13688 
BINWROD bos 14 365% 368% 969 10068 
BIT0 = 956 1185 1156 
Tl = 948 i 114 1155 1156 1449 1532 
BIT10 = 992000 ese 1513 1524 1716 1816 2715 
= 
Bitle = 810900 38 «1464 1543 
BIT13 = Bee 1467 1516 1547 1719 
BIT14 = 040000 gis 781 1478 1480 1547 1ss8 
BITIS = 100000 808 5 S72 575 596 539 1451 
nee 20ge | 2079 2138 2133 2250 2308 2366 
S U 
Btt3 = were 928 1204 1556 
BITY = 00002 Sis 1139 1162 1164 
BITS = 40 908 1661 
BIT6 = 000100 898 1144 1145 1SS1 
BIT? = 0002 ese 1145 1265 1661 
BITS = OO0400 878 1523 1538 1540 1553 1555 1S61 
BIT9 = 10 868 1 1523 1535 1561 1564 1620 
BM 5 11878 149 
BRLVL 2254 1817 162 1635 16478 
BRW 3730 18 8048 
BRX 003732 719 80S 
crea” Berels ST 
ee 
ckeue, 007870 12258 1257 
ckSHRS 77 1 308 
CK 771 1esi8 18390124 
CKSWRS O10016 lel 1220 12SSe 
CLKX o001le4e 1718 
CLRALL O26660 1858 4871 ise 2312 2326 2338 2370 
2439 251 S44 25s 2570 2602 2615 
CNGRE 7 “4 626 11978 
NT.MA 136 eae 484 486 488 1293 
ENVRT = 104411 2338 be3 738 740 742 44 1060 
CONERR 7224 621 11878 
Bae BRE et 1 
| ESNVRT= 104410 2318 543 629 1076 1391 
| CORMAX 77 27348 
CRAM 11878 1430 
| CREAM 1 1958 §4B3x 1289% 1290 1292* 129% 
C 11 11878 1395 
| CoRnEP biobes 1305" 761 762 1280 
8 
| DATABP OOS216 1049* 1052 1074 10778 
| DATACL= 415 241s 
T 04 1948s 1070 10738 
LAY = 333 3 % 
_ DEVADR 3 877% 912 9228 
DEVTAB 3010 583 648 
DH1 027344 27348 


1S4S 


2383 
2628 


1062 


2717 


1712 
2482 


1622 


2396 
eb4Ss 


1122 


2729 


1804 1854 1911 
2540 es98 


2428 2441 24S4 


1228 


PAGE: 0249 
SEG Oe4 


C2 


e493 


1965S 


2486 


FO4 
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DHe 027376 27348 
DH3 7417 27348 
BiseLe 1°00 14eu 498* SO4* 735% 
DI 1 1288 so4 
DMAC TV 1306 1898 Sel 676% 677 1280 1294 1376 15778 1583% 1584# 1588 1613 
DMCM 7321 634 11878 
OMCROO 00:.00 2798 
Brenae S338 seit 
ee 
BucROs 01830 Soa8 
DMCROY 001540 2998 
DMCROS 1373 3048 
SN] 1$60 3098 
DMCRO 1570 3148 
DMCR1O 1600 3198 
DMCR1 1610 3e4e 
DMCR1 tt ace 3298 
Brot 1630 3348 
R14 001640 3398 
pai? 001650 3448 
pres Boies at 
DMCSR 001404 cere 358" 602 607% 612% 647 765 802 1094 1117 1163 1298* 1307 
y 
DMC th tt "zest iiss 1158 12498 115S* 1156*% 1162% 1164* 1307% 1308* 1309 
DMCTL 8 * % 
OMNUM 001310 1908 479 7$1 1374* i1389% 1568% 1569 1578 1580 
_ OMPO4 14le ebSe 1133% 1139 1176 1181 1311% 13128 1313 
DMPO6 ithe 668 1150 1313% 1314# 
DMRL VL 1376 S98 1316* 13178 1318 
DMRVEC 001374 esses 768 1299 1300% 1316 
, OMS100 001502 2808 
OMS101 O015Sle e8ss 
pita i ie DO1See 2308 
DOMS1 00153. e958 
DMS1 DO154 3008 
DMS1 D0155. 3058 
| pra 108 D01S6e 3108 
_ OMS10 Bates 3158 
DMS110 1 3208 
OMS111 OOl6le 3eSs8 
OMSlie O016ee 3308 
DMS11 BBL EGS 3358 
OMS114 O0164 3408 
DMS11S O0016Se 3458 
pitt ts BL PBS 3508 
pie 3558 
01 e8ls 
pias see 
J 
DMSe0 BLE S4 $ 
| DMSe04 001544 3018 
~OmSeOS 001554 306% 
OMS2 001564 gills 
DMSeO07 001574 23168 
OMSei0 001604 3els 


FOY 
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CeSicz 
SEQ 0251 


PAGE: 
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CZ0MGO.P11 


662 1290 1292 1370 1375 1605 


S46 


* c7 

=—0 “wo 

u- WO 

Om FQ 

co om) 

“x mK 

PONS s 

UAnRh 

MOMmMur 

Se ee eel 
BVTSSKKKKKKKLKLAABSABesse2e 22a BBSKSKSKSSKRAKRSKSKARASAAsSsse22222 
OT SD ee eS ee Daa DoD oa DD DDD ear 9M 
VUVOMT FMNODOTCOO$--MUUMNMNT TNNOOUTOMMMNM RRR RRR RRR RR RED 
OMMMMMNMOUUUUNMMMMOMMMMMMMMUMUMARAARRARARARARARAARARARR MOMMMMMMM 

bev Taviatlavlaviavlatlavravlevlaviaviavlaviaviavlaviavy 


=F hpr OUT RBLO AUT Be SOOGOT Dee 

DODDDOODUINUINUNNNNDODDDDODUT TRUK hw wf 

DoDD DOOD OOO OOOO DOO OOO OOOO OO Banninins 
oO 


SSSes88888ss8S8ssssssssssssssssss 
itetetetatel=fatat=t-tot=t= bape eee Sas0ab805— 


MMMMMMOM—4 “4 QO-mM at a at eat et ent eat wnt ar a 


ratathatht w -r + - nll TUN 4 ts fh DOOOVQ0O0O00H0N 
5555 BEREEEE ESS YUU U OUTS 5 Senet per bbe rb eeeeeeeee 


DF NGO UUM TF 


N 
9 
2 


ONON0000 
44444444 
a A 


Oo NOW Cw & 


5 fated 


ee 
38 


<f_XXDDDABADAVWAADAA 
au =m 


TATMMMMMMMmMmmMmmmmrinr <C> 


Speniieht Cris 
Se eeeba ae 


“iin <zanT 
uw Ww DO 


TO KK es TT 


oorm 
ow 


pat on] 


~@o4 
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001754 3968 
001760 3998 
1764 40e8 
1770 4058 
774 4088 
4118 
700 s3e 6188 bee 
1636 1638 747 774 1087* 1305 
1 2e0es 481# 733% 795% 1037% 1050 1064# 1123# 
426 1047 106 10688 
7 6e4 6408 
32e a 10978 
00SeSe 1082 10878 
$36 Sess 591 
S66 Soe 60S 609 615 
ee 1033 10798 
76% 8 
16324 16708 2719 2731 
O001e2ce 1S98 793 798% 
00 846 8 12028 
2 1231 12e$98 
1 oie 3 S27 534% 
1044 ® 7 
104403 eels 1329 1381 1394 1403 1482 1491 
pos 888 853 8658 
l2e 1414 1431 1441 14S4 1470 16558 
007331 637 11878 
004314 9 38 
ett 1 a re 
001 26 Sea 2975 aya éi¢ 1056 19038 isis io" soee* sors Free Ng a 
*% # * * * * # 
set agit sols ves ae: GUE EI SAREE Guay Slsit SENT SL 
e4 2 97% 510% 25378 eSSS* e2e568*  2S95% ecbl3*  ecbeb* 
nes Lee 
sles ss Sn ee 
8 * 
BoP Bi4 vit 188 1886 1313 1928 3454 2081 2138 2195 22eSe 2310 2368 e426 
4 4 ® 
001244 1728 
006143 10S8 11878 
2§ S34 733 1054 1085S 1063 11878 1328 1390 
Cf 11878 
46 2. oo 12048 
33 t 11878 
196 11878 
4 4 12 78 
1 11878 861 
006 11878 
001322 1968 464% 745 1288* 12938 1297 
006044 714 11878 
006 14S 668 11878 


HOY 


CZDMGD.P11 OS-JAN-78 11:08 CROSS REFERENCE TABLE -- USER SYMBOLS 
MODU 6705 11878 1453 

MPASSX 006107 541 11878 

MPFAIL 005675 1121 11878 

MaM 005666 861 11878 1352 1427 1437 1447 1462 
MR ‘ 005756 723 11878 1346 

HeseeR= OBdg98 oats 1126 1738 1739 1863 8S3 1910 


1 
2307 2365 2423 2461 2s39 2s97 
MTITLE 10 68 itt 
MTSTN 4 1 1089 11878 1330 
MTSTPC 2 


MVECX 101 33 11878 
NEXT 001216 1578 739 1092 1686* 1709* 1736* 1800 
2189 2e4b* 2304 236e% 24e0* 2478 2536* 
NOAC pert Ss 253 11878 1282 
NODEV 2674 77 6168 
NUM 0064S1 11878 1382 
OK 46 603 6108 639 
ONE B01 20g 1878 
pax 180 001 be 3658 
PaCcTO1l 0017 3688 
PACTO2 paicte 3718 
PACTOS3 1716 3748 
PACTOY O017ee 3778 
engl sd Bi 7es 3808 
PACT 001732 3838 
PACTO7 1736 3868 
paxti? 1ouE 3338 
PaAcT1 174 2s 
PACTI 1752 9Sa 
PACT1 1228 988 
PACT14 17 4Ol8 
PACT1 1766 4O4e 
PACT1 1772 4078 
PACTI KAA | 4108 
PARAM = 4 ecss 1331 1383 1396 1405S 1484 1493 
PARAML 234 8818 g9e 
P a esa” 6 978 4 308 
Bau. Bue a ee 
= 8 
| TAB 430 llee 11288 
POPRO = 3 ae 7e8 10 
POP 1SP= pie eb 708 
POP = ebe6 748 801 
PRI 30 11878 1413 
PS 3 7ll# 1617# 1627* 


vv 
: 
Sy 
Se 
gt 


oy F nae 4B2 7S50# 790 
Res 169¢ 10588 

FEST 350 1108 11148 

RESTRT 0023534 749 753 7618 

RESOS = 104407 229 1078 


 ] 
RETURN 1214 1568 4928 7208 724 761* 799% 803 


1476 


1964 20e1 2078 2135 


18S0# 1907 1961* 2018 
2so4# 


10928 1095 1127 1345+ 


2192 


207S*# 


135S* 


PAGE: 
SE 


2249 


2132# 


1387 


0253C2 
a0 


eS3 


VWW WMWWUW 


PAGE: OeS4Cc2 
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CZO0MGD.P11 OS-JAN-78 11:08 CROSS REFERENCE TABLE -- USER SYMBOLS SE 
ROMCLK= LOS414 2398 1134 1137 174 1179 1744 1746 1748 1756 1758 1814 18s9 1861 
ieee 1874 1885S 887 91S 1917 1927 4362 1939 1941 1970 1972 1983 
198 1996 13998 027 029 2040 e042 2053 2055 2084 2086 2097 2039 
2110 sile e141 2143 21S4 21S6 2167 2169 2198 2200 2ell 2213 2224 
sss° ss3 44 2cbs 2270 e281 283 2313 2315 2326 23 2339 2341 
2371 2373 384 2386 2397 2339 4¥eg 2431 e442 2444 2e4ss 2457 2487 
248g 08 2502 2513 esis 2S4S 2547 2SS8 2560 2$71 2S73 2603 60S 
sede ssit ebeg eb31 ebY8 2650 ebS2 2660 2668 2676 268) 2692 694 
ROMDAT O267S2 ‘ee8 44 1889 1919 1931 1943 1974 1987 2000 2031 2044 2057 2088 
2101 gia gi 33 21s8 2171 2202 2215 22e8 2259 2272 228s 2317 2330 
2343 2375 388 2401 2432 C446 e4sg 2491 2SO04 25:17 2S49 2562 2s75 
2607 e620 2633 27098 
ROMMAP 232e 16658 1715S 1808 2728% 2731% 
ROMNUM 2362 1688 1691% 16938 
ROM1 2364 1690 16948 
RUN 1316 1938 4ygse 12e86% 1287% 1294 
SAVACT l3le 1918 671 1588 
SAVNUM 1314 19e8 479% 748% 751% 1S81* 
SAVPC le76b 18Se gees gis 9e9% 
VRO 1260 i788 % 3 2734 
VR lebe2 1798 28s 937% 34 
VR 1264 1808 36% SYS 2734 
VR leb6 1818 935% SYR 
VR4Y 1270 isse Gaye 947 2734 
VRS le7e 1838 933% 348 2734 
SAVSP 1274 1848 
2hvee = 1044 278 10 
Cc = yy . nae 483 cre 4288 4837 4833 1949 2006 2063 2120 2177 2234 2291 
SCOP1 = 104401 Bize 4868 988 4908 1894 1924 1936 1948 1979 1992 20 2036 2049 
2062 1 119 2150 2163 2176 2207 2220 2233 e264 2277 2290 
S2e5 3580 348 coe S338 2406 2438 2451 2464 2496 2509 eSee2 2ssS4 
SETBRO O26676 § he £3, 
SETBRI1 704 sig si> 488 gp55e 
SE TBRY 671 19 Ss? 6738 
SE TBR7 7 2eS4 ecb 280 6818 
eet 56a 3382 = a8 SB ie 
T 744 le 
SKI 2632 S7 S76 S93 600 6068 
SOF TSW 4y a 12688 
SPACNT= 13 Ue 98 991% 100S8 
PEED 7341 11878 144 
TACK = 1 b4e 47 690 1093 1116 
TAT ify 1708 
TAT] 1 le 43 1% cas 4805 gsy 1911 1965 2022 20793 2136 2193 2250 2308 
2 ] 40 S98 
TATS 00137 secs 130es e717 —sb7e9 
t # l 
TRT 1236 108 8 2° * S16# S17 S19 Seg S31 666 712 721 1323 13474 1377 
sys. powge S338 
g Sates “1 a 167 1224s 12S1# 12578 
eee, 7elé 1iee 1230 


4A 






CZOMGO.P11 OS-JAN-78 11:08 CROSS REFERENCE TABLE -- USER SYMBOLS 
SWR 001202 1438 497% 499 S03 513 671 676 781 788 812 
1081 1088 1090 11S2 l2le 1250 
SWREG 0176 1298 503 lele 1270 
SWOO = 4S8 17 1377 1601 
Heil 2 448 21 1323 1347 
= 000004 438 
SWO3 = Of 4o8 666 
SwO4 = 418 
= 408 
S = 398 1152 
ewog = oe (108 
= 
ae: ae 
1 = 358 1990 
SW = 348 788 
SW1 = 338 827 1027 
SW = 3e8 1032 
SW14Y = 318 
a] = r ge 
E 1416 2718 a24 1118% 1119% 1160# 116S*# 1171% 1183% 
TEMP 1 01246 1738 537% 1189 1613 1614 
reres poi ese 1748 aes 117} 
TEMP. D0 1eSe aots P a" # 618 627% 1193 1386 1389 1501* 1821 
TEMPY 1254 at ause 1195 3399 1402 1408 1411 1487 1490 1496 
Tene 1256 1778 You 1197 1380# 1393 1599 
TKeS - 00108 Tuas 1214 125 165 
TKDBR 1see 1498 g¢8 S¢e 133 iS} 1261 1657 
Teen * Batty gf, 73g" 
TPC 12] 1508 BSY 1969 1262 1658 
yepan 1 ire B34" 8S6* 10318 12e64* 1660# 
STNO 1226 a 491# 4308 4120 1334 1341 1343 168S# 1708# 1735# 
1 * x * 131" 21888 224S* 2303 2361% e419% e2477# 
TSTl 2 13 3 16858 
TST10 de 
TSTl & 
TSTl 1318 
TSTl 136 8 
TST14 At a 
vatt 0 r 
TSTl § ia 
TST ® 
TST 7 7088 
Ter : : 
4 x 
TST ; 46 3 333 2640 
TSTes = #eeeeE LU 
TST 1 Zags 
TST4 A? 17 17998 
TsTs ] 1 16498 
118 1659 13288 
TTST 71S 716 718 719 7828 
TWoSYN= Bi l 16 1 


827 


1823 
1499 


1799# 
2535 


1824s 
2734 


1849« 
2S93# 


PAGE: O2esSS 
SEQ 0 
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KO4 
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CZOMGD.P11 OS-JAN-78 11:08 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0eSé6 
TYPDAT O0S206 1053 1071 10748 
TYPE = 104402 gi38 ahi 23 38 620 6eS 633 636 668 673 714 3 736 
37 739 | 43 831 844 861 984 994 1054 10SS 1058 10S9 
1061 1083 10 1072 liel 1227 1230 128e 1328 1346 13Se 13 14le2 
igo ios 1436 1439 1446 14Se 1461 1468 1475 1S90 1690 
10$1 10548 
11878 tent 
1$89 16018 
1392 18978 
* * 10038 
106) 10698 
1028 1030 10328 
738 ose 
744 77e8 
$38 11878 
$93# 611# 614 64S 6588 
742 7698 
44 11878 
1060 11008 
40 7668 
— 
® 16738 167 le 61 1697 1704s 17258 #8 1728 7318 7668 769 7958 
18388 1841 i848 8 & 18 3 {802% 0 1983 1 Pied Ol bore Ob4s 
2067 2070 1 ? sate ate 1848 2358 S638 s62i8 s635° 95 
411 1Se 4668 4 4738 5 S2 eS3ls 


fe) 


we 
2 

3 

88 
St 
gor 


rpree 
=o 
Oo 
aa 
praeses & 
EROS 
Sony US 
Enver - 
tur 
OBR 
roo 
SeSH 
Sain 
FLOM ow 
Suviae~ 
SERS 


oe Ae ae cc 
"ilU ee 
si me: 1B, lst It GR uae it dase as age umes 

; Rs ne i aE a got at 

ao ge a a a oa eB 

ow ok WW me nr = a 
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CZ0MGD.P11  OS-JAN-78 11:08 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0257 
. INST 4154 e4 8618 

TET 080 22 408 

INSTI 44a 64 

MSG 07 gige Ouse 

MS 4 11438 

. PAR Ya ee 728 

 PFAIL 3 11 47 1107# = =61115 
-RES 4 230 9438 

ROMCL OOSSO4 cg shage 

-SAVOS 004374 228 Qa 

-SCOPE 003576 518 gros 

° WU 

“Sant ae bbe i3 Goes = 4921247 
-TIMER O0S616 e44 =: 11708 

-TRPSR 004716 117, 10148 

TRPTA 001330 e14# 1019 

TYPE 003766 220 8228 


CZDMGD.P11 


DRERNT 


. ABS. 


1 


rr 
FR, 


UTD UT ee SN LT 


263 


, 
seeeeea 


2% 


Nee 
xe 


200 
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027736 
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CROSS REFERENCE TABLE -- MACRO NAMES 


2007 


1880 


5486 


2064 


t-@ 
o 


93 
7S 
3 


fre 


2121 


2178 


2235 


2292 


2350 


2408 


2466 


Pe 


Ouwtrw- 0M 


foruronufmee 
ONWOL 
Mr ee) 


237 
2243 


1902 
2350 


ese4 
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SEQ 0258 


esse 
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